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Preface 


This is an ANSWER BOOK. It provides solutions to all the exercises in The 
C Programming Language, second edition, by Brian W. Kernighan and Dennis 
M. Ritchie (Prentice Hall, 1988)*. 

The American National Standards Institute (ANSI) produced the ANSI 
standard for C and K&R modified the first edition of The C Programming 
Language. We have rewritten the solutions to conform to both the ANSI 
standard and the second edition of K&R. 

Careful study of The C Answer Book, second edition, used in conjunction 
with K&R, will help you understand C and teach you good C programming 
skills. Use K&R to learn C, work the exercises, then study the solutions pre¬ 
sented here. We built our solutions using the language constructions known at 
the time the exercises appear in K&R. The intent is to follow the pace of K&R. 
Later, when you learn more about the C language, you will be able to provide 
possibly better solutions. For example, until the statement 

i f ( expression ) 
statement-J 

else 

statement-2 


is explained on page 21 of K&R, we do not use it. However, you could improve 
the solutions to Exercises 1-8, 1-9, and 1-10 (page 20 K&R) by using it. At 
times we also present unconstrained solutions. 

We explain the solutions. We presume you have read the material in 
K&R up to the exercise. We try not to repeat K&R, but describe the highlights 
of each solution. 

You cannot learn a programming language by only reading the language 
constructions. It also requires programming—writing your own code and study- 


'Hereafter referred to as K&R. 



ing that of others. We use good features of the language, modularize our code, 
make extensive use of library routines, and format our programs to help you 
see the logical flow. We hope this book helps you become proficient in C. 

We thank the friends that helped us to produce this second edition: Brian 
Kernighan, Don Kostuch, Bruce Leung, Steve Mackey, Joan Magrabi. Julia 
Mistrello, Rosemary Morrissey, Andrew Nathanson, Sophie Papanikolaou, 
Dave Perlin, Carlos Tondo, John Wait, and Eden Yount. 

Clovis L. Tondo 



Contents 


Preface 

Chapter I. 

A Tutorial Introduction 

V 

Chapter 2. 

Types, Operators, and Expressions 

43 

Chapter 3. 

Control Flow 

59 

Chapter 4. 

Functions and Program Structure 

69 

Chapter 5. 

Pointers and Arrays 

97 

Chapter 6. 

Structures 

151 

Chapter 7. 

Input and Output 

168 

Chapter 8. 

The UNIX System Interface 

188 

Index 


203 



chapter i A Tutorial Introduction 


Exercise 1-1: (page 8 K&R) 

Run the "hel lo, world" program on your system. Experiment with leaving 
out parts of the program to see what error messages you get. 

*i nc1ude < 5 tdi o.h> 

ma i n( ) 

{ 

pr i ntf("he 1 lo, world"); 

> 

In this example the newline character (\n) is missing. This leaves the cursor 
at the end of the line. 

#include <stdio.h> 

ma in( ) 

{ 

pr i ntf("he 11o, worldXn") 

> 

In the second example the semicolon is missing after prmtfC ). Individual C 
statements are terminated by semicolons (page 10 K&R), The compiler should 
recognize that the semicolon is missing and print the appropriate message. 

#include <stdio.h> 

maln ( ) 

prxntfC"hello, worldNn'); 

> 
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In the third example the double quote " after \n is mistyped as a single quote. 
The single quote, along with the right parenthesis and the semicolon, is taken 
as part of the string. The compiler should recognize this as an error and com¬ 
plain that a double quote is missing, that a right parenthesis is missing before 
a right brace, the string is too long, or that there is a newline character in a 
string. 
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Exercise 1-2: (page 8 K&R) 

Experiment to find out what happens when printf’s argument string contains 
\c, where c is some character not listed above. 

‘■'include <5tdio.h> 

maln( ) 

{ 

pr 1 n1f("he 11o, worldXy"); 
pr i n t f ( "he 1 1 o , world\7"}*, 
printf("he 11o, worlds?"); 

> 

The Reference Manual (Appendix A, page 193 K&R) states 

If the character following the \ is not one of those specified, the behavior 
is undefined. 

The result of this experiment is compilerdependent. One possible result might 
be 

hello, worldyhello, wor1d<BELL>he 11o, world? 

where <BELL> is a short beep produced by ASCII 7. It is possible to have a 
\ followed by up to three octal digits (page 37 K&R) to represent a character. 
\7 is specified to be a short beep in the ASCII character set. 
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Exercise 1-3: (page 13 K&R) 

Modify the temperature conversion program to print a heading above the table, 

^include <stdio.h> 

/• print Fahrenhe i t -Ce 1 sius table 

for fahr * 0, 20, .... 300; floating-point version •/ 

ma in( ) 

< 

float fahr, Celsius; 
int lower, upper, step; 


lower ■ 0; 

/* 

1 ower 

limit of temperature table 

• / 

upper ■ 300; 

/* 

upper 

limit 

• / 

step ■ 20 ; 

/• 

step 

size 

• / 


printf("Fahr Celsius\n"); 

fahr - lower; 

while (fahr <■ upper) ( 

Celsius - (5.0/9.0) • (fahr-32.0); 

pr intf ("X3. Of X6.1f\n", fahr, Celsius); 

fahr ■ fahr ♦ step; 

> 

> 

The addition of 

printf("Fahr CelsiusXn"); 

before the loop produces a heading above the appropriate columns. We also 
added two spaces between X 3. Of and X6. l f to align the output with the head¬ 
ing. The remainder of the program is the same as on page 12 K&R. 
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Exercise 1-4: (page 13 K&R) 

Write a program to print the corresponding Celsius to Fahrenheit table. 

^include <stdio.h> 


/• print Ce15lus-Fahrenhe i t table 

for celaius - 0, 20, 300; floating-point version */ 

mainO 
{ 

float fahr, Celsius; 
int lower, upper, step; 


1ower ■ 0; 
upper * 300; 
step ■ 20; 


/• lower limit of temperature table */ 
/* upper limit *l 
/• step size * / 


prlntf("Cel 5 l us Fahr\n"); 

celsius ■ lower; 

while (celsius <* upper) < 

fahr * (9.0»celsius) / 5.0 ♦ 32.0; 

prlntf("X3.Of XG.lf\n", celsius, fahr); 

celsius ■ celsius ♦ step; 

> 

> 


The program produces a table containing temperatures in degrees Celsius (0- 
300) and their equivalent Fahrenheit values. Degrees Fahrenheit are calculated 
using the statement: 

fahr - (9.0»celsius) / 5.0 ♦ 32.0 

The solution follows the same logic as used in the program that prints the 
Fahrenheit-Celsius table (page 12 K&R). The integer variables lower, upper, 
and step refer to the lower limit, upper limit, and step size of the variable 
celsius, respectively. The variable celsius is initialized to the lower limit, 
and inside the while loop the equivalent Fahrenheit temperature is calculated. 
The program prints Celsius and Fahrenheit and increments the variable celsius 
by the step size. The while loop repeats until the variable celsius exceeds 
its upper limit. 




6 


The C Answer Book 


Exercise 1-5: (page 14 K&R) 

Modify the temperature conversion program to print the table in reverse order, 
that is, from 300 degrees to 0. 

^include <stdio.h> 

/* print Fahrenheit-Celala a table in reverae order •/ 

mainO 
{ 

int fahr ; 

for (fahr ■ 300; fahr >* 0; fahr ■ fahr - 20) 

printf("X3d X6.1f\n M , fahr, (5.0/9.0)«(fahr-32)>; 

> 

The only modification is: 

for (fahr - 300 ; fahr >■ 0; fahr ■ fahr - 20) 

The first part of the for statement, 
fahr - 300 

initializes the Fahrenheit variable (fahr) to its upper limit. The second part, 
or the condition that controls the for loop, 

fahr >■ 0 

tests whether the Fahrenheit variable exceeds or meets its lower limit. The 
for loop continues as long as the statement is true. The step expression, 

fahr « fahr - 20 


decrements the Fahrenheit variable by the step size. 
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Exercise 1-6: (page 17 K&R) 

Verify that the expression get char C) !« EOFisOorl. 

#inc lude <stdio.h> 
ma i n C) 

i n t c ; 

while (c * getcherC) !* EOF) 
p rin t f C"Xd \n", c ); 
pnntfC'Xd - at EOF \ n", c ) ; 

> 

The expression 
c ■ getchar() *« EOF 
is equivalent to 
c - CgetcharO EOF) 

(page 17 K&R). The program reads characters from the standard input and 
uses the expression above. While get char has a character to read it docs not 
return the end of file and 

getcharO * « EOF 

is true. So 1 is assigned to c When the program encounters the end of file, 
the expression is false. Then 0 is assigned to c and the loop terminates. 
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Exercise 1-7: (page 17 K&R) 

Write a program to print the value of EOF. 

#include <atdlo.h> 

main() 

< 

printf(*'EOF ia Xd\n M , EOF); 

> 

The symbolic constant EOF is defined in <stdio.h>. The EOF outside the 
double quotes in pr tntf O is replaced by whatever text follows 

^define EOF 

in the include file In our system EOF is -1, but it may vary from system to 
system. That’s why standard symbolic constants like EOF help make your pro¬ 
gram portable. 
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Exercise 1-8: (page 20 K&R) 

Write a program to count blanks, tabs, and newlines. 
» inc1 ude <stdio.h> 


/• count blanks, tabs, and newlines 
mainO 
{ 

xnt c, nb, nt, n1; 


> 


nb * 0; 
nt - 0 ; 
nl = 0 ; 

while (<c M getcharC)) 
if Cc «« ' ') 


/* number of blanks 
/• number of tabs 
/♦ number of newlines 
!«EOF ) 1 



♦ ♦ n b ; 


if 

(c ' 

\t ') 


♦ ♦ nt ; 


if 

C c s * ' 

\ n') 


♦ ♦ n 1 ; 



printfCXd Xd Xd\n", nb , nt , 


nl ); 


*/ 


♦/ 

*/ 


The integer variables nb, nt, and nl are used to count the number of blanks, 
tabs, and newlines, respectively. Initially, these three variables are set equal 
to 0. 

Inside the body of the while loop, the occurrence of each blank, tab, and 
newline from input is recorded All if statements are executed each time 
through the loop. If the character received is anything but a blank, tab. or 
newline, then no action is taken. If i t is one of these three, then the appropriate 
counter is incremented. The program prints the results when the while loop 
terminates (getchar returns EOF). 
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The 1 f-el se statement is not presented until page 21 K&R. With that 
knowledge the solution could be: 

#include <atdio.h> 

/• count blanks, tabs, and newlines •/ 

mainC) 

{ 

irt c, nb, nt, n1; 


o 

« 

XI 

c 

/• 

number 

of 

b lanks 

*/ 

o 

• 

c 

/• 

number 

of 

tabs 

*/ 

nl - 0; 

/• 

number 

of 

new 1ines 

*/ 

while (Cc - getchart)) 

! -EOF) 






if Cc •• ' ') 
♦ ♦ nb; 


else if (c «« '\t' ) 

♦ ♦ n t; 

else if (c - * ' \ n ' ) 

♦ ♦ n 1; 

printfC’Xd Xd Xd\n M , nb, nt, nl); 

> 
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Exercise 1-9: (page 20 K&Rl 

Write a program to copy its input to its output, replacing each string of one or 
more blanks by a single blank 

Unclude <5tdio.h> 

^define NONBLANK 'a' 

/* replace string of blanks with a single blank »/ 

maln C ) 

< 

int c, lastc; 
lastc = NONBLANK; 

while C(c * getcharO) ,a EOF) { 
if (c ! = ' ') 

p u tcha r C c ) ; 
if < c »» ' ') 

if (lastc !* ' ' ) 
putchar(c); 

lastc = c; 

Y 

> 

The integer variable c records the ASC II value of the present character received 
from input and lastc records the ASCII value of the previous character. The 
symbolic constant NONBLANK initializes lastc to an arbitrary nonblank char¬ 
acter. 

The first i f statement in the body of the while loop handles the occurrence 
of nonblanks — it prints them. The second if statement handles blanks, and 
the third i f statement tests for a single blank or the first blank of a string of 
blanks. Finally, lastc is updated, and the process repeats. 
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The if-else statement is not presented until page 21 K&R. With that 
knowledge the solution could be: 

^include <stdio.h> 

-'define NONBLANK 'a' 

/• replace string of blanks with a single blank •/ 

main( ) 

< 

i n t c, lastc; 
lastc - NONBLANK; 

while <(c “ getcharC)) *= EOF) 1 
if (c !* ' ' ) 

pu tchar(c ) ; 

else if (lastc != ' *) 

putcharCc); 
lastc ■ c; 

> 

} 

The logical OR (! !) operator is also not presented until page 21 K&R. With 
that knowledge the solution could be: 

-include <stdio.h> 

-define NONBLANK 'a' 

/• replace string of blanks with a single blank •/ 

mainO 

< 

int c, lastc; 

lastc - NONBLANK; 

while (Cc - getcharC)) »« EOF) < 

if (c •« ' ' !! lastc ! - ' ' ) 
pu tcha r (c ) ; 
lastc = c; 

> 

> 
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Exercise 1-10: (page 20 K&R) 

Write a program to copy its input to its output, replacing each tab by \t, each 
backspace by \b, and each backslash by \\. This makes tabs and backspaces 
visible in an unambiguous way. 

^include <stdio.h> 

/♦ replace tabs and backspaces with visible characters */ 

ma i n C ) 

< 

i n t c ; 

while C (c - getcharO) EOF) < 
if (c «« '\t') 

printf rwt") ; 

if Cc — ' X b ' ) 

printfCWb"); 
if Cc == '\\'> 

printfC"\\\\"); 
if (c !* ' X b' ) 

if Cc ■« 'Xt') 

if (c !* 'XX ') 


The character received from input can be a tab, a backspace, a backslash, or 
anything else. If it is a tab we replace it with \t, a backspace with \b, and a 
backslash with \\. Anything else is printed as is. 

A backslash character is represented as '\ \ ' in C. We print two back¬ 
slashes by passing the string M \\\\ M to printf. 
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The if-else statement is not presented until page 21 K&R. With that 
knowledge the solution could be: 

^include <stdio.h> 

/* replace tabs and backspaces with visible characters •/ 

main( ) 

< 

i n t c •, 

while CCc ■ getcharC)) !»E0f) 
if Cc '\t ') 

printfC** \ \ t M ) ; 
else if (c »» ' \ b ' ) 
printfC"\\b"); 
else if (c '\\') 

printfC"\\\\"); 

else 


putcharCc); 
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Exercise 1-11: (page 21 K&R) 

How would you test the word count program? What kinds of input are most 
likely to uncover bugs if there are any? 

To test the word count program first try no input. The output should be: 
0 0 0 (zero newlines, zero words, zero characters). 

Then try a one-character word. Theoutput should be: I I 2 (one newline, 
one word, two characters—a letter followed by a newline character). 

Then try a two-character word. The output should be: 1 1 3 (one newline, 
one word, three characters—two characters followed by a newline character) 
In addition, try 2 one-character words (the output should be: 1 2 4) and 
2 one-character words—one word per line (the output should be 2 2 4). 

The kinds of input most likely to uncover bugsare those that test boundary 
conditions. Some boundaries are 

— no input 

— no words—just newlines 

—no words—just blanks, tabs, and newlines 

— one word per line—no blanks and tabs 

— word starting at the beginning of the line 

— word starting after some blanks 
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Exercise 1-12: (page 21 K&R) 

Write a program that prints its input one word per line, 
^include <stdio.h> 


^define 

I N 1 / * 

i ns ide a word 

• / 

* def l ne 

DUT 0 /• 

outside a word 

• / 

/ • print 
ma in( ) 

input one word 

per line 

•/ 

{ 




i nt 

c, state; 




state ■ OUT; 

while (<c ■ getcharO) '« EOF) ( 

if (c ■« ' ' it c “■ '\n' t! c '\t') t 
if ( state -- IN) < 

putchar('\n'); /• finish the word •/ 

state - OUT; 

> 


> else if (state ■« DUT) < 



state ■ IN-, 

/• beginning of word 

• / 

putchar(c); 



> else 

/* inside a word 

•/ 


putchar(c); 

1 

> 

state is an integer boolean that records whether the program is currently inside 
a word or not. At the beginning of the program, state is initialized to out, 
since no data has been processed. 

The first i f statement 

if (c -- * ‘ lie »* '\n' II c -- '\t') 

determines whether c is a word separator. If it is, then the second i f statement, 
if (state -• IN) 

determines whether this word separator signifies the end of a word. If so, a 
newline is printed and state is updated; otherwise no action is taken. 

If c is not a word separator, then it is either the first character of a word 
or another character within the word. If it is the beginning of a new word, 
then the program updates state. In either case, the character is printed. 
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Exercise 1-13: (page 24 K&R) 

Write a program to print a histogram of the lengths of words in its input. It is 
easy to draw the histogram with the bars horizontal; a vertical orientation is 
more challenging. 


* inc1ude 

<5tdio.h> 




#de fine 

MAXHIST 15 

/• 

max length of histogram 

• / 

*de fine 

MAXWORD 11 

/• 

max length of a word 

• / 

#define 

IN 1 

/♦ 

lnside a word 

• / 

#de fine 

OUT 0 

/♦ 

outside a word 

• / 

/• print 
main() 

{ 

int 

horizontal histogram 



•/ 

c, l, nc, state; 




int 

1 en; 

/• 

length of each bar 

• / 

int 

maxva1ue ; 

/• 

maximum value for wl ( ] 

• / 

int 

ovf1ow; 

/• 

number of overflow words 

• / 

int 

wl [MAXWORD! ; 

/• 

word length counters 

• / 

state - OUT; 




nc 

- 0; 

/• 

number of chars in a word 

•/ 

ovflow - 0; 

/* 

number of words >■ MAXWORD 

•/ 

for 

(l -0; i < MAXWORD; 

♦ ♦ 

l ) 



w 1 [ l ] - 0 ; 




while ((c * getchar ()) 

■ > 

EOF) { 



if (c ■ ■ ' ' •: c ** 

» ' 

\ n' Si c «=• '\t') { 



state - OUT; 
if (nc > 0) 

if (nc < MAXWORD) 

♦ *wlt nc 1 ; 

else 

♦♦ovf1 dw; 

nc * 0 ; 

} else if (state ■» 0UT> { 
state - IH; 

nc ■ 1; /♦ beginning of a new word •/ 

} else 

♦♦nc ; /♦ inside a word •/ 

> 

maxvalue * 0; 

for (i - 1; i < MAXWORD; ♦♦!) 
if (wl(i'] > maxva lue) 
maxvalue M wl[i1 ; 
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fcr (l = 1; l < MAXWORD; ♦♦l) < 

pr i nt f ( "25d ' X 5d : " , l, wl(i])» 
if (witil > 0 > < 

if C(len = wl[ i] * MAXHIST / maxvalue) <- 0) 
len = 1; 

> else 

len * 0 ; 

while (len > 0) { 

pu tchar ('•'); 

--len; 

> 

putcharC '\ n ' ) ; 

} 

if ( o vf 1ow > 0) 

pr i ntf("There are Xd words >* Xd\n", ovflow, MAXWORD) 

> 

A blank, newline, or tab marks the end of a word. If there is a word (nc > 0) 
and its length is less than the maximum word length (nc < MAXWORD). then the 
program increments the appropriate word length counter (**wl t nc )). If the 
length of the word is out of range (nc >* maxword), then the program incre¬ 
ments the variable ovflow that keeps track of the number of words greater 
than or equal to MAXWORD. 

When all words have been read in, Ihe program determines the maximum 
value (maxva 1 uej from the array wl. 

The variable len scales the value in wlCil according to MAXHIST and 
maxvalue. When will) is greater than 0, at least one asterisk is printed. 

^include <5tdio.h> 


#define 

MAXHIST 

1 5 

/« 

max length of histogram 

• / 

* def i ne 

MAXWORD 

1 1 

/* 

max length of a word 

•/ 

*define 

IH 

1 

/♦ 

inside a word 

•/ 

#def i ne 

OUT 

0 

/♦ 

outside a word 

•/ 

/* print 
mainO 

i nt 

ver t i ca1 

hi 5 t ogram 



* / 

c, 1 , ] , 

nc, state; 




i nt 

maxva1ue; 


/• 

maximum value for wit] 

*/ 

i nt 

ovf1ow; 


/• 

number of overflow words 

* / 

i nt 

wl [MAXWORD! ; 

/• 

word length counters 

•/ 
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state - OUT; 

nc ■ 0; /» nymber of chars in a word •/ 

ovflow - 0; /* number of words >■ MAXWORD ♦/ 

for (i - 0; i < MAXWORD; ♦ ♦!) 
wlti] • 0; 

while C(c ■ getcharO) !■ EOF) < 

if (c ■■ ' ' !l c »* '\n' I! c -■ # \t') < 
state - OUT; 
if Cnc > 0) 

if (nc < MAXWORD) 

♦ *w 1 t nc 3 ; 

else 

♦♦ovflow; 

n c ■ 0 

} else if (state -- OUT) ( 
state ■ IN; 


nc - 1 ; 

/* beginning of a new word 

• / 

> else 



♦ ♦nc ; 

/* inside a word 

•/ 

) 

maxva1ue ■ 0; 




for (i - 1; l < MAXWORD; ♦♦i) 
if (wlli) > maxvalue) 
maxva1ue - w1[i ) ; 

for (i - MAX HI ST; i > 0; --i) { 

for (j - 1 ; j < MAXWORD; ♦♦j ) 

if (wltjl • MAXH1ST / maxvalue >■ i) 
printff" • M > ; 

else 

printfC* " ) ; 
putcha r (* \n ' ) ; 

> 

for (i - 1; i < MAXWORD; ♦♦! ) 
pr in tf ("%4 d ", i ) ; 
putcharC ' \ n ' ) ; 

for (i - 1; i < MAXWORD; ♦♦!) 

printf("X4d ", wlCi )); 
putchar('Nn'); 
if (ovf1ow > 0 ) 

printf("There are Xd words >• Xd\n" , ovflow, MAXWORD); 

> 

This solution prints a vertical histogram. It is similar to the previous program 
until maxvalue is determined. Then it is necessary to scale each element of 
the array wl and verify whether an asterisk should be printed for each one of 
the elements. This verification is necessary since all bars are printed simulta¬ 
neously (vertical histogram). The last two for loops print the index and value 
for each element of wl. 
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Exercise 1-14: (page 24 K&RJ 

Write a program to print a histogram of the frequencies of different characters 
in its input. 

^include <atdio.h> 

^include <ctype.h> 

^define MAXHIST 15 /• max length of histogram •/ 

^define MAXCHAR 128 /• max different characters •/ 

/• print horizontal histogram freq. of different characters •/ 
ma i nC ) 

{ 


i nt 

c , i ; 




i nt 

len; 

/• 

length of each bar 

•/ 

i nt 

maxvalue; 

/• 

maximum value for cell 

•/ 

i nt 

cctMAXCHARl; 

/ * 

character counters 

•/ 

for 

(i - 0; i < MAXCHAR; 

♦ ♦ 

i ) 



ccCil - 0; 

while C(c ■ getcharO) !■ EOF) 
if (c < MAXCHAR) 

♦♦cctc 1 ; 
maxvalue - 0 ; 

for (l - 1; i < MAXCHAR; ** 1 ) 
if (cctil > maxvalue) 
maxva1ue - cc[i ] ; 

for (i - 1; i < MAXCHAR; **i) { 
if (isprint(i)) 

printfC'XSd - Xc - XSd ; ", i, i, cctil); 

el se 

printf("X5d - - XSd : ", i, cctil); 

if (ccti 1 > 0) < 

if ((len - cctil • MAXHIST / maxvalue) <- 0) 
1 e n - 1 ; 

> else 

len • 0; 

while (ien > 0) < 
putchar( # » # ); 

--len; 

> 

putchar('\n'); 

> 

> 
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This program is similar to the horizontal histogram in Exercise 1-13. Now we 
are counting the frequency of different characters. We use an array character 
counter of MAXCHAR entries and we ignore characters greater than or equal to 
MAXCHAR if they exist in the character set being used. The other difference is 
that we use a macro to determine if a character is printable. The include file 
< c t ype . h> is discussed on page 43 K&R. isprint is described on page 249 
K&R (Appendix B: Standard Library). 
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Exercise 1-15: (page 27 K&R) 

Rewrite the temperature conversion program of Section 1 2 to use a function 
for conversion. 

^include <stdio.h> 

float ce15 iu5(f1oat fahr); 

/» print Fahrenhe i t-Ce15lus table 

for fahr * 0, 20, .... 300; floating-point version 

mainO 

< 

float fahr; 

irt lower, upper, step; 

lower * 0; /* lower limit of temperature table 

upper * 300; / * upper limit 

step =20; /* step size 

fahr « 1ower; 

while Cfahr <■ upper) i 

pr i n tf C*'%3.0 f X6.1f\n", fahr, celsiusCfahr ]) ; 
fahr * fahr ♦ step; 

> 

> 


/* Celsius: convert fahr into Celsius 
float ce 1 5 l usCf1oat fahr) 

< 

return <5.0/9.0) * (fahr-32.0); 

} 

We use a function to convert Fahrenheit into Celsius. The name of the function 
is Celsius, it receives a floating-point value, and it returns another floating¬ 
point value. The function returns the value of the expression via the return 
statement. Sometimes the expression is a simple variable, as in the function 
power (page 26 K&R). Sometimes we use a more involved expression, as in 
the function Celsius, because all the work can he done in the return state¬ 
ment. 

We declared 

float ce 1 s l usCf1oat fahr); 

because the function expects a floating-point value and returns another floating¬ 
point value after the conversion. 
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Exercise 1-16: (page 30 K&R) 

Revise the main routine of the longest-line program so it will correctly print the 
length of arbitrarily long input lines, and as much as possible of the text. 

^include <stdio.h> 

^define MAXLINE 1000 /• maximum input line size •/ 

int getline(char line!], int maxline); 
void copy(char toll, char from!]); 

/• print longest input line •/ 

ma1n() 

< 

int len; /• current line length •/ 

int max; /• maximum length seen so far •/ 

char 1ine(MAXLI HE ] ; /• current *nput line •/ 

char longestCMAXL INE ] ; /• longest line saved here •/ 

max ■ 0; 

while ((len - get 1 1 neC1lne, MAXLINE)) 
printfC'Xd, Xs" , len, line); 
if (len > max) < 
max ■ len; 

copy(1ongest, line); 

> 

> 

if (max > 0) /* there was a 

printfCXs", longest); 
return 0; 

> 

/• getline: read a line into s, return length •/ 

int getline(char sM, int lim) 

< 

int c, i , j ; 

j - 0; 

for (i - 0; (c ■ getcharO) !-EOF it c !* '\n'; ♦ ♦!) 
if’(l < lim-2) { 

sljl ■ c; /• line still in boundaries •/ 

> 


> 0 ) < 


line • / 
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if (c ■ - ' \ n ' ) { 
a [ j ] - c ; 

♦♦j 5 

♦ ♦ 1 ; 

> 

a [ j ] - ' \ 0 '; 
return i ; 

> 

/• copy: copy 'from' into # to # ; assume to ia big enough •/ 
void copy (char toM, char fromt]) 

< 

i n t i; 
i - 0 ; 

while ((totil - fromtil) «- '\0') 

♦ ♦ i ; 

> 

The only revision in the main routine is 
printfCXd, Xs", len, line); 

This prints the length of the input line (len) and as many characters as it is 
possible to save in the array line. 

The function get 1 i ne has a few modifications. 

for Ci ■ 0; (c ■ getcharC)) ! ■ EOF it c !- '\n'; ♦♦!) 

The test for the limit of characters is not performed in the for loop anymore. 
This limit is not a condition for termination because g e 1 1 1 ne now returns the 
length of arbitrarily long input lines and saves as much text as possible. The 
statement 

if < i < 1im-2) 

determines if there is room in the array (still within boundaries). The original 
test in the f,or loop was 

i < lim-1 

It was changed because the last index of the array s is 
lim-1 

since s has 1 im elements and we already read the input character. So 


i < lim-2 
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leaves room for a possible newline character 
atlim-2] ■ '\ti' 
and an end of string marker 
atlim-1] - ' \ 0 ' 

The length of the string is returned in t; j keeps track of the number of characters 
copied to the string a. 
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Exercise 1-17: (page 31 K&R) 

Write a program to print all input lines that are longer than 80 characters. 

♦ inc 1ude <stdio.h> 

♦define MAXLINE 1000 /• maximum input line size •/ 

♦ define LQNGLiNE BO 

int getline(cher line!], int max line); 

/• print lines longer than LONGlINE •/ 

mai n( ) 

{ 

intlen; /• current line length */ 

char 1inelMAXLINE 1; /• current input line •/ 

while CClen - get1lneC1ine, MAXLINE)) > 0) 
if (len > LDNGL INE) 

printfCXs", line); 

r e t u r n 0 ; 

> 

The program invokes getl ire to read an input line, get line returns the 
length of the line and as much text as possible. If the length is greater than 80 
characters (lqngl ine), then the program prints the input line. Otherwise, no 
action is taken. The loop repeats until get line returns length zero. 

The function get 1 1 ne is the same as in Exercise 1-16. 
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Exercise 1-18: (page 31 K&R) 

Write a program to remove trailing blanks and tabs from each line of input, and 
to delete entirely blank lines. 

^include <stdio.h> 

^define MAXLINE 1000 /* maximum input line size •/ 

int getlineCchar line!], int maxi ire); 
int removeCchar s [ 1 ) ; 

/• remove trailing blanks and tabs, and delete blank lines ♦/ 
ma i n ( ) 

< 

char 1 i neCMAXLINE1 ; /♦ current input line ♦/ 

while (get 1 l neC 1 me , MAXLINE) > 0) 
if (removeCline) > 0) 

printfC* Xs", line); 

return 0 ; 

> 

/* remove trailing blanks and tabs from character string s •/ 
int remove (char sCl) 

< 


int 1 ; 






l - 0 ; 






while 

(Sill 

1 ■ '\n ' ) 

/• 

find newline character 

•/ 

♦ 

♦ i * 





- - i ; 



/• 

back off from '\n' 

•/ 

wh i le 

Ci >« 

o it (sci: 

1 »• 

' ' n sci i «« '\t # )) 


- 

- i ; 





if (i 

>■ 0) 

< 

/• 

is it a nonblank line? 

•/ 

♦ 

♦ a ; 





s 

C i ] • 

'\n * ; 

/• 

put newline character back 

•/ 

♦ 

♦ i i 





s 

t 

[ 1 ] - 

' \ 0 ' ; 

/• 

terminate the string 

•/ 

/ 

return 

i ; 






> 

The remove function removes trailing blanks and tabs from the character string 
line and returns its new length. If this length is greater than 0, line has 
characters other than blanks and tabs, and the program prints the line. Other¬ 
wise, U ne is entirely made up of blanks and tabs, and thus ignored. This 
ensures that entirely blank lines are not printed. 
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The remove function finds the newline character and backs off one po¬ 
sition. The function then steps backward over blanks and tabs until it finds 
some other character or no more characters are available (i < 0). If i >■ 0, 
then there is at least one character, remove puts back the newline and the end 
of string marker, then returns i. 

The function get line is the same as in Exercise 1-16 



A Tutorial Introduction Chap. 1 
Exercise 1-19: (page 31 K&R) 


29 


Write a function reversefa) that reverses the character string a. Use it to 
write a program that reverses its input a line at a time. 

^include <atdio.h> 

^define MAXLINE 1000 /« maximum input line size •/ 

int getline(char line!], int maxline); 
void reveraeCchar all); 

/• reverae input lines, a line at a time •/ 

main( ) 

< 

char 1 1 neCMAXL INE 1 ; /• current input line •/ 

while Cgetline(1 ine, MA XL IH E) > 0) ( 
reverae(line); 
printfC"Xa", line); 

} 

> 


/• reverae: reverae atring a •/ 

void reveraetchar all) 

{ 


int i , j ; 
char temp; 

i - 0; 





while Cali! !■ ' \ 0 ' ) 

♦ ♦ i ; 

/ • 

find 

the end of string a 

•/ 

- -1 ; 

if (alii ■■ ' \ n ' ) 

/ • 

back 

off from '\0' 

•/ 

- - i ; 

/ • 

1 eave 

newline in place 

•/ 

j - 0; 

whi le (j < i) ( 

temp ■ a I j 1 ; 

/ • 

beginning of new atring a 

•/ 

aC j 1 • a[i) ; 
a Ci1 - t emp; 

/• 

awap 

the charactera 

•/ 


The reverae function first finds the end of string a. It then backs off one 
position from ' \0 so that the first character will not become an end of string 
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marker If a '\n' exists, it backs off one more position, since like the '\0', 
it must remain at the end of the line. 

j is the index of the first character of the string, and 1 is the index of the 
last character of the string. While swapping characters, j is incremented (moves 
toward the end of the string), and i is decremented (moves toward the beginning 
of the string). The process continues while j is less than i. 

The main program reads a line of input at a time, reverses it. and prints 
the reversed line. 

The function ge 1 1 1 nc is the same as in Exercise 1-16. 
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Exercise 1-20: (page 34 K&R) 

Write a program detab that replaces tabs in the input with the proper number 
of blanks to space to the next tab stop. Assume a fixed set of tab stops, say 
every n columns. Should n be a variable or a symbolic parameter? 

^include <stdio.h> 

^define TABIHC 8 /• tab increment size •/ 

/• replace tabs with the proper number of blanks •/ 

mainO 
< 

int c, nb, pos; 

nb * 0; /• number of blanks necessary 

pas ■ 1; /• position of character in line 

while CCc ■ getcharO) !■ EOF) < 

if Cc ■■ *\t # ) < /• tab character 

nb • TABIHC - (pcs - 1) X TABIHC; 
while Cnb > 0) i 

putchart' '); 

♦♦pos; 

- - nb; 

} 

> else if (c ■■ *>n' < /• newline character 
putcharCc); 
pos ■ 1 ; 

} else < /• all other characters 

putcharCc); 

♦♦pos; 


The tab stops are at every TAB INC position. In this program TAB INC is defined 
to be 8. The variable po s is the position within a line of text where the program 
currently is. 

If the character is a tab, the program calculates the number of blanks nb 
necessary to reach the next tab stop. The statement 

nb - TABINC - Cpos - U l TABINC 

determines this value. If the character is a newline', then it is printed out and 
pos is reinitialized to the beginning of the line (pos ■ l). Any other character 
is printed and pos is incremented (<«pos). 
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TAB INC is a symbolic constant. Later on, in Chapter 5, you will learn 
how to pass arguments to the main program and you may want to allow the user 
to set the number of columns between tab stops. Then you may want to change 
TAB INC into a variable. 

The program detab is extended in Exercises 5-11 and 5-12. 




A Tutorial Introduction Chap. 1 33 

Exercise 1-21: (page 34 K&R) 

Write the program entab thatreplaces strings of blanks by the minimum number 
of tabs and blanks to achieve the same spacing. Use the same tab stops as for 
detob. When either a tab or a single blank would suffice to reach a tab stop, 
which should be given preference? 

^include <stdio.h> 

^define TAB INC 8 /• tab increment Size •/ 

/• replace strings of blanks with tabs and blanks •/ 

main( ) 

< 

int c, nb, nt, pos; 


nb ■ 0; /• # of blanks necessary •/ 

nt • fl; /• * of tabs necessary •/ 

for Cpos ■ 1 ; (c ■ getcharO) •- EOF; ♦♦pos) 
if (c - - ' ' ) < 

if (pos X TABINC • - 0) 

♦♦nb; /• increment * of blanks •/ 

else ( 

n b ■ 0 ; /• reset i of blanks * f 

♦♦nt; /• one more tab 

> 

> else < 

for ( ; nt > 0; --nt) 

putchar('\t'); /* output tab(s) •/ 

if (c ** # \t') /* forget the blank(s) •/ 

n b ■ 0 ; 

else /• output blank(s) •/ 

for ( ; nb > 0; --nb) 

put chart' '); 
putchar(c); 
if (c ■■ '\n') 
pos ■ 0; 

else if (c ■■ '\t') 

pos - pos ♦ CTABINC - (pos-1) X TABINC) - 1; 

} 


/* reset * of blanks 
/• one more tab 


/* forget the blank(s) •/ 

/# output blank(s) •/ 

-nb) 


The integer variables nb and rt are the minimum number of blanks and tabs 
necessary to Teplace a string of blanks. The variable pos is the position within 
a line of text where the program currently is. 

The idea is to find all blanks. A string of blanks is replaced by a tab every 
time pos reaches a multiple of tabinc. 
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When the program finds a nonblank, then it prints the tabs and blanks 
accumulated followed by the nonblank character. The program resets nb and 
nt to zero, and resets pos to the beginning of the line if the current character 
is a newline. 

If the nonblank character is a tab, then the program prints only the ac¬ 
cumulated tabs followed by the current tab character. 

When a single blank suffices to reach a tab stop, it is easier to replace it 
with a tab because we avoid special cases. 

The program entab is extended in Exercises 5-11 and 5-12. 
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Exercise 1-22: (page 34 K&R) 

Write a program to “fold” long input lines into two or more shorter lines after 
the last nonblank character that occurs before the n-th column of input. Make 
sure your program does something intelligent with very long lines, and if there 
are no blanks or tabs before the specified column. 

^include <atdio.h> 


*define 

MAXCOL 

1 0 

/• 

maximum column of input 

• / 

#def ine 

TAB1NC 

8 

/• 

tab increment size 

•/ 

char 1inetMAXCOL]; 


/• 

input line 

•/ 


int exptabCint pos); 
int findblnkCint pos); 
int newpos(int pos); 
void printlCint pos); 

/• fold long input lines into two or more shorter lines •/ 

mainO 

< 

int c, pos; 

pos • 0; /• position in the line •/ 

while CCc • getcharO) !■ EOF) < 

lineCposl » c; /• store current character •/ 

if <c »• '\t') /• expand tab character •/ 

pos a exptab(pos); 
else if Cc •« * \ n* ) { 

printl(pos); /• print current input line •/ 

pos * 0; 

> else if C♦♦pos >- MAXCOL) < 
pos ■ f i ndblnlt (pos ) ; 
pr int1(pos); 
pos ■ newpos(pos); 


/• printl: print line until pos column •/ 

void printKint pos) 

{ 


int i; 
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for Ci - 0; i < pos; ♦ ♦!) 
put char C11ne[1]); 

If Cpoa > 0) /• any chars printed ? •/ 

pu t char C # \n ' ); 

> 


/•exptab: expand tab into blanks •/ 

int exptabCint pos) 

< 


1ine[pos } • 9 * ; /• 

for (♦♦pos*, pos < MAXCOL II 

line[pos 1 ■ ' * ; 
if (pos < MAXCOL) /• 

return pos; 

els* < /• 

printl(pos); 
return 0; /» 

> 


tab is at least one blank •/ 
pos X TABINC !• 0; ♦♦pos) 

room left in current line •' 

current line is full •/ 

reset current position •/ 


/• findblnk: find blank's position 
int findblnk(int pos) 

;■ • *) 


while (pos > 0 Aft line(posl 
--pos; 


if (pos ■■ 

0) 

/• 

rteturn 

MAXCOL; 


else 


/• 

return 

pos*1 ; 

/• 


no blanks in the line 9 •/ 

at least one blank •/ 

position after the blank •/ 


/* newpos: rearrange line with new position •/ 

in’t newpos(lnt pos) 

< 

int i , j ; 


if (poa <-0 11 pos MAXCOL•) 

return 0; /* nothing to rearrange •/ 

else < 

i - 0; 

for (j - pos; j < MAXCOL; ♦♦]) < 
lineCil - 1 ine(j1; 

'♦ ♦ i ; 

) 

return i; /• new position in line •/ 

> 

> 
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MAX COL is a symbolic constant. It indicates the n-th column of input. The 
integer variable pos points to the position within a line of text where the program 
currently is. The program folds input lines before the n-th column of input. 

The program expands tab characters, prints the current input when it finds 
a newline, and folds the input line when poi reaches MAX COL. 

The function f indb Ink searches for a blank starting at the index pos. It 
returns the position after a blank or MAXCOL if a blank does not exist, 
pr i n 11 prints the characters between position zero and p o s - 1 . 
newpos rearranges a line, that is, it copies characters, starting at pos, to 
the beginning of the line, then returns the new value of pos. 


38 


The C Answer Book 


Exercise 1-23: (page 34 K&R) 

Write a program to remove all comments from a C program. Don’t forget to 
handle quoted strings and character constants properly. C comments do not 
nest. 

'include <stdio.h> 

void rcommentCint c); 
void in_comnent(void); 
void echo_quote(int c); 

/• remove all comments from a valid C program • / 

mainO 

< 

i n t c , d ; 

while ((c ■ getcharO) !■ EOF) 
rcommen t(c); 
r e t u r n 0 ; 

> 


/• rcomment: read each character, remove the comments • / 

void rcomment( int> c) 

< 

i nt d; 


> 


if Cc -- '/') 

if ((d ■ getcharC)) 
in_comment C); 
else if (d ■■ '/') { 
put char C c ) ; 
rcommen t C d); 

> else < 

put charC c ) ; 
pu t c ha r ( d ) ; 

> 

else if (c ■■ ' \ *' 11 c - 
echo_quo t eC c); 

else 

put char (c ) ; 


/•beginning comment*/ 
/•another slash •/ 

/• not a comment «/ 


/• quo t e begin a •/ 
/• not a comment •/ 
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/• in_comment: inside of a valid comment */ 

void in__comment (void) 

{ 

i n t c , d ; 


c * getcharC); 
d * getchar( ) ; 

while Cc it d !« '/') < 

c ■ d; 

d ■ getcharC); 

> 

> 


/• prev character •/ 
/* curr character •/ 
/• search for end */ 


cho^quote: echo characters within quotes */ 

echo_quote(int c) 

int d; 

putchar(c); 

while CCd ■ getcharC)) * * c) { 
pu t cha r(d) ; 
if Cd ■■ ' \ \ ) 

putchar(getcharO); 

> 

pu tchar(d); 

> 

The program assumes that the input is a valid C program, rcomment searches 
for the beginning of a comment (/ •) and when it finds it calls m_comment. 
This function searches for the end of the comment. The procedure therefore 
ensures that a comment will be ignored. 

rcomment also searches for single and double quotes and if it finds them 
calls echo_quote. The argument to echo_quote indicates whether it is a 
single or double quote, echo.quote ensures that anything within a quote is 
echoed and not mistaken for a comment. echo_quote does not consider a 
quote following a backslash as the terminating quote (see the discussion on 
escape sequences on page 19 K&R and in Exercise 1-2). Any other character 
is printed as is. 

The program terminates when getchar returns an end of file. 


/• search for end •/ 


/* ignore escape seq*/ 


/ * e 

void 

{ 
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Exercise 1-24: (page 34 K&R) 

Write a program to check a C program for rudimentary syntax errors like un¬ 
balanced parentheses, brackets, and braces. Don’t forget about quotes, both 
single and double, escape sequences, and comments. (This program is hard if 
you do it in full generality.) 

'include <stdia.h> 


int brace, brack, paren; 

void in_quote(int c); 
void in_comment(void); 
void search(int c); 


/♦ rudimentary syntax checker for C programs •/ 

mai nC ) 

< 

int c ; 

extern int brace, brack, paren; 

while CCc ■ getchar(l) !■ EOF) < 
if Cc •• '/') < 

if <(c ■ getcharO) *■ '•') 

in_comment(); /• inside comment •/ 

else 

search(c); 

> else if (c -- It c -« ,M# > 

in_quoteCc); /• inside quote •/ 

else 

search(c); 


if (brace < 0) < /• output errors •/ 

printf("Unbalanced bracestn"); 
brace ■ 0; 

> else if (brack < 0) ( 

printf("Unbalanced bracketsSn* 1 ); 
brack ■ 0; 

> else if (paren < 0) { 

pr i n tf ("Unba lanced pa^enthe^esVn ,, ); 
paren - 0; 

} 
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if (brace > 0) /• output errors 

printf<"Unbalanced braces\n"); 

If (brack > 0) 

printfC*Unbalanced brackets\n">; 
if (paren > 0) 

printf("Unbalanced parentheses\n"); 


/• search: search for rudimentary syntax errors 
void search(int c) 

( 

extern int brace, brack, paren; 


> 


if (c 

.. M'> 

♦♦brace; 


else 

if (c 
--brace; 

'> ') 

else 

if (c ■■ 
♦♦brack; 

'[') 

else 

if (c •• 
--brack; 

M'> 

else 

if C c 
♦♦paren; 

'(') 

else 

if (c 
--paren; 

')' ) 


/• in_comm*nt: inside of a valid comment 
void in^comment(void) 

< 

int c, d; 

c ■ getcharO; /• prev character 

d ■ getchatO; /• curr character 

while (c !♦ I! d !- '/') ( /• search for end 

c ■ d; 

d • getcharO; 

> 

> 
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/• in.quote: inside quote 
void in_quote(int c) 

< 

int d; 


> 


while'((d ■ getcharC)) 
if Cd -• 

getcharO; 


c ) 


/• search end quote •/ 
/• ignore escape seq */ 


This solution is not done in full generality. 

The program checks for three syntax errors: unbalanced parentheses, 
brackets, and braces. Everything else is assumed to be valid. 

The function search increments the variable brace when the character 
is a left brace (' <') and decrements it when the character is a right brace (' >') 
The variables brack and paren are handled similarly. 

During the search, it is legal for brace, brack, or paren to be positive 
or zero. It is an error if brace, brack, or paren ever becomes negative; the 
program prints an appropriate message, t (( (brack equals 3) is legal for the 
moment because 3 balancing right brackets might be found later in the search. 
Ill (brack equals - 3) is illegal because there were no previous left brackets 
to balance these 3 right brackets: if there were 3 left brackets to balance them, 
then brack should equal 0. The statements 

If (brace < 0) ( 

printf("Unbalanced bracei\n"l; 
brace ■ 0; 

> else if (brack < 0) < 

printf("Unbalanced bracketa\n"); 
brack ■ 0; 

> elae if (paren < 0) { 

printf("Unbalanced parentheaeaVn"); 
pare n ■ 0 ; 

> 


are necessary because without them ) ( or 1111C r or > > < < would be considered 
balanced. 

The main routine searches for comments, single and double quotes, and 
skips the characters within them. The braces, brackets, and parentheses inside 
comments and quotes need not be balanced. 

The program makes a final check upon EOF to determine if there are any 
open braces, brackets, or parentheses. If so, the program prints an appropriate 
message. 
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Exercise 2-1: (page 36 K&R) 

Write a program to determine the ranges of char, short, int, and long 
variables, both signed and unsigned, by printing appropriate values from 
standard headers and by direct computation. Harder if you compute them: 
determine the ranges of the various floating-point types. 

^include <stdio.h> 

^include <limits.h> 

/• determine ranges of types •/ 

ma 1 n( ) 

< 

/• signed types •/ 

printf("signed char min - Xd\n", SCHAR_MIN); 

printf("signed char max - Xd\n", SCHAR.MAX); 

printf("signed short min - td\n", SHRT.MIN); 

pr i ntf("slgned short max - Xd\n", SHRT_MAX); 

printf("slgned int min - Xd\n", INT_M1N); 

printf("signed int max - Xd\n", 1NT_MAX>; 

printf("signed long min ■ Xld\n", L0MG_MIN); 

printf("signed long max - Xld\n", 10NG_MAX); 

/• unsigned types •/ 

printfC'unsigned char max ■ Xu\n", UCHAR_MAX>; 
printf("unsigned short max - Xu\n", USHRT_MAX); 
printf("unsigned int max • Xu\n" , UINT.MAX); 
printf("unsigned long max - Xlu\n", ULONG.MAX); 

> 
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The ANSI standard for C specifies that ranges be defined in < 1 imi ts . h>. 
The ranges may vary from machine to machine because the sizes for short, 
int, and long vary for different hardware. 

^include < s t di o . h > 


/• determine ranges of types •/ 

mainC) 

< 


> 


/• signed types 
pr i n t f (*' s ig ned 

prin t f("s 1 gned 

print f C"a 1 gned 

printf("signed 

printf("signed 

printfC'signed 

printfC signed 

printfC"signed 


char min - Xd\n" , 

-(char)C(unsigned char) “0 >> 1)); 
char max - Xd\n" , 

(char)((unsigned char) *0 >> 1 ) ) ; 
short min ■ Xd\n", 

-(short)((unslgned short) "0 >> 1)); 
short max - Xd\n", 

(short)((unsigned short) “0 >> 1)); 
int min - Xd\n", 

-(int)((unsigned int) ”0 >> 1))*, 
int max * Xd\n", 

(int)C(unsigned int) ~0 >> 1)); 
long min » Xld\n", 

-(long)C(unsigned long) ”0 >> 1)); 
long max » Xld\n", 

(long)((unsigned long) "0 >> 1)); 


/• unsigned types 
printfC unsigned 

pr intf Cunsi gned 

pr i ntf Cuns i gred 

printf("unsigned 


char max ■ Xu\n", 

(unsigned char) '0); 
short max - Xu\n", 

(unsigned short) ”0); 
int max ■ Xu\n", 

(unsigned int) "0) ; 
long max - Xlu\n", 

(unsigned long) '0); 


•/ 


• / 


Another possible solution uses bitwise operators (page 48 K&R). For 
example, the expression 

(char )(( uns lgned char) "0 >> 1) 

takes a zero and converts each bit to one 


'0 
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then converts the resulting quantity to an u ns igned char 
(unsigned char) "0 

and shifts the unsigned char one position to the right to clear the sign bit 

(unsigned char) "0 >> 1 

and finally converts the quantity to char 

(char )((unsigned char) '0 >> 1) 

That is the maximum value for a signed character. 
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Exercise 2-2: (page 42 K&R) 

Write a loop equivalent to the for loop above without using t* or it. 

Original: 

for Ci-0; i<lim-1 It < c - ge t c hart )) ! * '\n' tl c ! - EOF; ♦♦!) 

Equivalent: 

enum loop < NO, YES >; 
enum loop ok loop - YES; 

1 - 0; 

while (okloop -- YES) 

if (i >■ lim-1) /• outside of valid range V •/ 

o k 1 oop - NO; 

else if (Cc - getcharO) ■» 'Vn') 
okloop - NO; 

else if (c ■■ EOF) /• end of file ? •/ 

okloop - NO; 

else < 

s 1 i 1 - c; 

♦»i ; 

> 

Without ss or II we have to break the original for loop into a sequence 
of if statements. We then change the tests. For example, in the original for 
loop 


1 < lim-1 

indicates that l still is within boundaries. In the equivalent statement 

i »- lim-1 

indicates that i is out of boundaries and the loop should terminate. 

ok loop is an enumeration. As soon as one ofthe conditions is met ok loop 
is set to NO and the loop terminates. 
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Exercise 2-3: (page 46 K&R) 

Write the function ht o i (a ), which converts a string of hexadecimal digits (in¬ 
cluding an optional Ox or ox) into its equivalent integer value. The allowable 
digits are 0 through 9, a through f , and A through F. 

'define YES 1 

^define NO 0 


/• htoi: convert hexadecimal string s to integer 
in t htoi(char s[]) 

{ 

int hexdigit, i, inhex, n; 


i - 0; 

if C a C i 1 *■ '0') < /* skip optional Ox or OX •/ 

♦ ♦ i; 

i f <st i 1 -- '%• it s [ i 1 -- 'X') 

♦♦ i ; 

> 

n-0; /« integer value to be returned •/ 


inhex - YES; 


/• assume 

valid hexadecimal 

digit •/ 

for ( ; inhex •• YES; ♦♦i) < 



if (slil >- ' 

0 ' 44 3 

til <- '9 

l' ) 


hexdigit 

- slil 

- '0' ; 



else if C s CiJ 

>- 'a' 

4 4 s ( i 3 

<■ 'f') 


hexdigit 

• slil 

- *a * * 

10; 


else if C s ti3 

>• 'A' 

44 a [ i ) 

<- ' F ' ) 


hex digit 

• s [ i 1 

- ' A' ♦ 

10; 


else 





inhex - 

NO; 

/ * not a 

valid hexadecimal 

digit •/ 

if Cinhex -- 

YES) 





n • 16 • n ♦ hexdigit; 

> 

return n; 


The statement 


for C ; inhex •• YES; ^M) 

controls the function. The integer i is the index for the array s. While s [ i ] 
is a valid hexadecimal digit, in hex remains YES and the loop continues. The 
variable hexdigit takes a numerical value of 0 through 15. 
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The stalemenl 
if (inhex ■ - YES) 

guarantees that a valid hexadecimal digit was at s ti 1 and its value is in hexdi - 
gi t. When the loop terminates, htoi returns the value of the variable n. 
This function is similar to atoi (page 43 K&R). 
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Exercise 2-4: (page 48 K&R) 

Write an alternate version of squeezelsl ,s2) that deletes each character in 
si that matches any character in the siring s2. 

/• squeeze: delete each char in si which is in s2 •/ 

void squeezeCcher si C 1 , char s2t ) ) 

( 

i n t i , j , 1; 

for Ci • k • 0; sltil *• ' \ 0'; !♦♦) < 

for Cj • 0; s2Cjl !• '\0' It s2Cj) sltil; J") 

if (s2tjl 'NO') /• end of string - no match •/ 

si C k 1 • sltil; 

> 

silk) • 'NO'; 

> 


The first statement, 

for Ci • k ■ 0; sltil !• 'NO'; !♦♦) 

initializes i and k, the indexes of s i and the resulting string (also si), respec¬ 
tively. Each character in s i that matches any character in s2 is deleted. The 
loop continues until the end of the string s i . 

The second for statement checks each character in s2 against the sltil 
character. This loop terminates when s2 runs out of characters or there is a 
match. In the event that there is no match, sltil is copied to the resulting 
string. If there is a match, the statement 

if ts2tj1 -- 'NO') 

fails, and sltil is not copied to the resulting string (it is squeezed out). 
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Exercise 2-5: (page 48 K&R) 

Write the function any< si , s2 ), which returns the first location in the string 
s 1 where any character from the string s2 occurs, or -1 if si contains no 
characters from s2, (The standard library function strpbrk does the same 
job but returns a pointer to the location.) 

/• any: return first location in si where any char from s2 occurs*/ 
int anytchar sit], char s2N) 

< 

int i, j ; 

for (i • 0; sim !• ' \ 0'; i ♦ * > 

for (] - 0; s 21 j] !• '\0'; ]♦♦> 

if (sltil ■■ s2ljl) /• match found? •/ 

return i; /« location first match •/ 

return-1; /’otherwise,nomatch */ 

> 

The statement 

for Ci * 0; sltil !• 'VO'; i ♦ ♦ ) 

controls the loop. When the loop terminates normally (s i runs out of characters), 
any returns -1 to indicate that no character of s2 was found in si . 

The second for statement, 

for <) • 0; s 21 j1 !• '\0'; j**> 

is executed for each value of i . It compares each character of s2 with sltil. 

When a character in s2 matches sltil the function returns i — the first location 
in the string si where any character from the string s2 occurs. 
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Exercise 2-6: (page 49 K&R) 

Write a function setbits(».p,n,y) that returns x with the n bits that begin 
at position p set to the rightmost n bits of y, leaving the other bits unchanged. 

/* setbits: set n bits of x at position p with bits of y »/ 
unsigned setbits(unsigned x, lnt p, lnt n, unsigned y) 

< 

return x 4 "t’C'O << n) << (p + 1-n)) t 
<y i 'CO << n)> << <p«1-n); 

> 

To set n bits of x to the rightmost n bits of y 


xxx...xnnnx...xxx x 
yyy.ynnn y 

we need to clear the n bits in x, clear all bits in y except the rightmost n bits 
and then shift them to position p, and OR the quantities together. 

xxx...x000x...xxx x 
000...0nnn0...000 y 

xxx.,.xnnnx...xxx x 

To clear the n bits in x we AND them with n bits of zeros starting at position 
p and ones everywhere else. 

"0 « n 

shifts all ones n positions to the left, leaving n zeros at the rightmost positions. 
-(-0 « n) 

places all ones at the rightmost n positions, zeros everywhere else. 

"CO << n) << Cp* 1 -n) 

shifts these n 1-bits to position p and 

TCO << n) << Cp♦ 1 -n)) 
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sets n bits to zeros starting at position p, leaving ones everywhere else, 
x t '('('0 << nJ « (p*1-n|j 

we AND this value with > to dear the n bits of x at position p. 

To clear all bits in y except the rightmost n bits we AND them with n bits 
of ones and zeros everywhere else. 

'('0 << n ) 

places all ones at the rightmost n positions, zeros everywhere else. 

y l '('0 << n) 

selects the rightmost n bits of y. And 
(y l 'C"0 << n)) << (p^t-n) 
places these n bits starting at position p. 

x 1 "C'C'O << n) << Cp ♦ 1 - n) ) I 

(y 4 " (”0 << n>> << (p«1-n) 

we O R the two values to set the n bits of x starting at position p to the rightmost 
n bits of y, leaving the other bits unchanged. 


Types, Operators, and Expressions Chap. 2 


53 


Exercise 2-7: (page 49 K&R) 

Write a function mvtrKi , p, n ) that returns x with the n bits that begin at 
position p inverted (i.e., 1 changed into 0 and vice versa), leaving the others 
unchanged. 

/• invert: inverts the n bits of x that begin at position p •/ 
unsigned InvertCunsigned x, int p, int n) 

< 

return x * C*("0 << n) << (p*1-n)); 

> 


C"0 << n) 

shifts all ones n positions to the left, leaving r zeros at the rightmost positions. 
'CO << n) 

places all ones at the rightmost positions, zeros everywhere else. 

(TO << n) << <p♦ 1 -n>) 
shifts these n 1-bits to position p. 
x ■ CCO << n) << (p*1-n>) 

The bitwise exclusive OR operator (‘) produces a 1 when two bits are different, 
otherwise it produces a 0. Since the objective is to invert the n bits starting at 
position p, it suffices to exclusive OR them with all ones starting at p for n bits 
(with zeros everywhere else). If the original bit is 0, exclusive OR with a 1 
produces a 1—it is inverted If the original bit is a 1, exclusive OR with a 1 
produces a 0—it is inverted. 

The positions outside of the n-bit field are exclusive OR’ed with zeros: 
0" 0 (bits are the same) produces a 0—nothing changed; 1 ‘ 0 (bits are different) 
produces a 1—nothing changed. Only the n bits are inverted. 
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Exercise 2-8: (page 49 K&R) 

Write a function rightrot(x,n> that returns the value of the integer x rotated 
to the right by n bit positions. 

/• rightrot: rotate x to the right by n positions •/ 

unsigned rightrot(unsigned x, int n) 

< 

int wordlength(void ) ; 

int rbit; /* rightmost bit •/ 

while (n-- > 0) < 

rbit ■ (x I 1) 
x ■ x > > 1 ; 
x * x I rbit; 

> 

return x; 

> 

The variable rbit takes the rightmost bit of x and shifts it to the leftmost 
position (word lengthC ) - 1). 

Next, we shift x one position to the right and OR it with rb 1 1 to complete 
one rotation, rightrot rotates x n times. 

wordlengthO isa function that computes the word length on the host 
machine. 

/• wordlength: computes word length of the machine •/ 

int wordlength(void) 

< 

int i ; 

unsigned v • (unsigned) "0; 

for (i * 1; (v • v » 1) > 0; i ♦ ♦ ) 

return i; 

> 


<< (wordlengthC) - 1); 

/• shift x 1 position right •/ 
/• complete one rotation •/ 
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This is a different solution to the same exercise: 

/* rightrot: rotate x to the right by r> positions •/ 

unsigned rightrot(unsigned x, int n) 

< 

int wordlengthCvoid); 
unsigned rbits; 

if (Cn » n X wordlengthC)) > 0) ( 

rbits • '(“0 << n) lx; /• n rightmost bits of x •/ 

/* n rightmost bits to left •/ 

rbits * rbits << (wordlengthO - n); 

x * x >> n; /* x shifted n positions right •/ 

x • x l rbits; /• rotation completed */ 

> 

return x; 


If the number of positions (n) to rotate to the right is the same as the number 
of bits in an unsigned integer, nothing changes because x is the same as before 
the rotation. K n is less, then it is necessary to rotate n positions. If n exceeds 
the number of bits in an unsigned integer, then the number of rotations is the 
remainder (modulus operator) of n divided by the length of the word. As a 
result, no looping is necessary. 

'0 < < n all ones are shifted n positions to the left 

leaving n zeros in the rightmost positions. 

"< "0 « n ) all ones are in the n rightmost positions. 

When we AND this value with x, the n rightmost bits of x ate assigned to r b 11 s . 
Then we move rbits to the leftmost position. We shift x n positions to the 
right. The new value of x is OR’ed with rbits to complete the rotation of 
the unsigned x, n positions to the right. 
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Exercise 2-9: (page 51 K&R) 

In a two’s complement number system, x *- (x-i) deletes the rightmost 1- 
bii in x. Explain why. Use this observation to write a faster version of b 1 1 - 

count. 


/• bitcount: count 1 bits in x - foster version */ 

int bitcountCunsigned x) 

< 

int b; 

for Cb - 0; x • - 0; x * - x~1) 
b * 

return b; 

> 

Take a value for x - 1 , for example, the binary number 1010, which is 10 in 
decimal, (x-1) ♦ 1 produces x: 


binary 

decimal 

1010 x-1 

10 

+ 1 

+ 1 

1011 X 

11 


We take (x-i ) and add 1 to it to produce x. The rightmost 0-bit of x-1 
changes to 1 in the result x. Therefore, the rightmost 1-bit of x has a corre¬ 
sponding 0-bit in x - 1 . This is why x t (x -1 >, in a two’s complement number 
system, will delete the rightmost 1-bit in x. 

Consider an unsigned quantity of four bits. To count all 1-bits in this 
quantity, the original bitcount performs four shifts to check the rightmost bit. 
An alternative is to use the knowledge that x t c x -1) turns off the rightmost 
1-bit of x. For example, if x equals 9, 

10 0 1 value 9 in binary (x) 

1 0 0 0 value 8 (x -1) 

1 00 0 x ( (x-l> 

and the rightmost 1-bit in x has been deleted. The resulting value is 1000 in 
binary, 8 in decimal. Repeating the process, 

1 0 0 0 value 8 in binary (x) 

0 111 value 7 (x -1) 


OOOOx t (x-l) 
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and the rightmost 1-bit in x has been deleted. The resulting value is 0000 in 
binary, 0 in decimal. There are no more 1-bits in x and the process terminates 
The worst case is when all bits of x are ones—the number of AND’s is 
the same as the number of shifts in bi tcou n t. Overall, this a faster version 
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Exercise 2-10: (page 52 K&R) 

Rewrite the function lower, which converts upper case letters to lower case, 
with a conditional expression instead of i f -e 1 s e. 

/• lower: convert c to lower cose (ASCII only) •/ 

int 1ower(int c ) 

< 

return c >■ ' A' li c <« * Z' ? c ♦ 'a' - 'A' : c; 

> 

When the condition 
c >■ 'A' (t c <- '2' 

is true, c is an upper case letter (ASCII only). Then the expression 
c » 'a' - 'A' 

is evaluated and lower returns a lowercase letter. Otherwise, lower returns 
the character unchanged. 
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Exercise 3-1: (page 58 K&R) 

Our binary search makes two tests inside the loop, when one would suffice (at 
the price of more tests outside). Write a version with only one test inside the 
loop and measure the difference in run-time. 

/* binsearch: find x in vtO] <• vtl] <■...<• vCn’1 ) •/ 

int b inaearchC i n t x, irt vU, int n) 

< 

int low, high, mid; 

low ■ 0; 

high ■ n - 1 ; 

mid • Clow^high) / 2; 

while Clow <■ high ti x !■ vtmid]) < 
if ( x < vtmidl) 

high • mid - 1; 

else 

low ■ mid ♦ 1; 
mid • Clow*high> / 2; 

> 


if Cx *■ vCmidl) 
return mid; 

'• found match 

*/ 

else 

return -1; 

/• no match 

«/ 


88 
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We changed the expression in the while loop from 
low <■ high 


to 

low <■ high ll x •- vim d] 

so we can use only one if statement inside the loop This implies that we have 
to calculate mi d before the loop starts and every time the loop is executed 
We need to have a test outside of the while loop to determine if the loop 
terminated because x appears in the array v. If x appears in the array, bin- 
search returns mid, otherwise it returns -1. 

The difference in run-time is minimal. We did not gain much in perform¬ 
ance and lost some in code readability. The original code on page 58 K&R 
reads better from top to bottom. 
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Exercise 3-2: (page 60 K&R) 

Write a function escape c s, t ). that converts characters like newline and tab 
into visible escape sequences like \n and \ t as it copies the string t to s Use 
a switch. Write a function for the other direction as well, converting escape 
sequences into the real characters. 

/♦ escape: expand newline and tab into visible 
/* while copying the string t to 5 

void escape(char sM, char t[l) 

< 

i n t i , j ; 

for (i = j = 0; t(i] ! - 'NO'; 
switch ( 11 i ]) < 
case '\n' : 

a [ j ♦ ♦ ] - ' \ \ ' ; 

5 [ j ♦ + 1 * ' n' ; 
break ; 
case '\t': 

a C j ♦ ♦ 3 - ' \ \ '; 

S t j ♦ ♦ ] « ' t ' ; 

break ; 
defau1t: 

s [ j ♦ ♦ ] - t [ 1 ] ; 

break ; 

> 

stj J - '\0'; 

> 

The statement 

for (i * j - 0; tti] *■ ' \ 0 '; i ♦♦) 

controls the loop. The variable i is the index for the original string t, and j is 
the index for the modified string 5 . 

There are three cases in the swi t c h statement:' \ n' for newline character. 
' \ t' for tab character, and def au It. If the character 1 1 i 3 does not match 
one of the two cases, escape executes the case labeled default: copy 
tti] to string 5 . 


!♦♦) 

/•newline • / 

/• tab • / 

/* all other chars •/ 


sequences */ 
*/ 
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The function unescape is similar: 

/• unescape: convert escape sequences into real characters •/ 
/• while copying the string t to s • / 

void unescapeCchar sC) t char t[]> 

( 

Int 1, J ; 

for C l • J - 0; ttil '\0'; !♦♦> 

If (til) !• 'VV') 

s t J *♦1 - till; 

else /• It Is a backslash*/ 


awitchC 11♦♦ 
case 'n': 

i]> 

< 

/• 

real 

newline 

• / 

break; 

• 

' Vn ' ; 





case 't': 



/• 

real 

tab 

• / 

>[]♦♦! 
break; 

■ 

' V t ' ; 





defau1t: 



/• 

all 

other chara 

•/ 

*[]♦♦] 

• 

' \\'; 





break ; 

■ 

till; 






> 

stj1 • '\0'; 

1 

If the character in t C l ] is a backslash, then we usea switch statement 
to convert \n into newline and \ t into tab. The default handles a backslash 
followed by anything else—copies a backslash and till to string s. 

switch statements can be nested. Here is another solution to the same 
problem. 
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/• unescape: convert escape sequences Into real characters •/ 
/• while copying the string t to s ■/ 

void unescapefchar s(]> char til) 

< 

Int 1, jj 

for Cl - J - 0 j til] !- 'VO'; !♦♦> 
switch Ctll]) < 


case 


/• 

backslash 

• / 

swltch(tt**lJ> 

case 

< 

/• 

real newline 

• / 

*[)♦♦] ■ 
brea k; 

# \n # ; 




case 't': 


/• 

real tab 

• / 

s t J ♦ ♦ J - 

break ; 

'\t'; 




default: 


/• 

all ether chars 

• / 

s CJ♦♦3 » 

'W'S 




s l J♦♦J ■ 
break ; 

> 

break; 

ten;' 




defau1t: 


/• 

not a backslash 

• / 


s IJ•♦ 1 -till: 

break; 


1 


1 

stj] • '\0'i 


The outer switch statement handles the backslash character and every¬ 
thing else (default). The backslash case uses another swi tch statement as 
in the solution above. 
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Eied> 3-3: (pege 63 K&R) 

Write a function expand (si , s2 > that expands shorthand notations like a- z in 
the string si into the equivalent complete list abc...xyz in s2. Allow for 
letters of either case and digits, and be prepared to handle cases like a-b-c and 
a - z 0 - 9 and -a - z. Arrange that a leading or trailing - is taken literally. 

/* expand: expand shorthand notation in si into string s2 •/ 
void expand(char si ( 1 , char s2N) 

< 

char c; 

* n t i , j ; 

i • J ■ 0; 

while C(c ■ sIC1»*1) !■ '\0') /• fetch a char from a 11J */ 
if (sICll SI a 1Ci»1J >■ c) < 

1 ♦ ♦; 

while (c < si 1i1) /• expand sho-thand •/ 

s 2[j♦♦ 1 ■ c « ♦ ; 

} else 

s2 t j♦♦1 - c; /• copy the character •/ 

s2(]I • '\0'; 

} 


The function takes a character from si , saves it in c, and then checks the 
next character. If the next character is - and the character after that is greater 
than or equal to the character in c, expand proceeds to expand the shorthand 
notation. Otherwise expand copies the character into s2. 

expand works for ASCII characters. The shorthand a-z expands into 
the equivalent list abc... xy z. The shorthand • expands into ! "# .. ABC .. 
XVZ. .abc. . xyz . . I >'. 

This solution was provided by Axel Schreiner of the University of Osna- 
bruck. West Germany. 


♦ 
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In a two’s complement number representation, our version of i too does not 
handle the largest negative number, that is, the value of n equal to - (2 w "' d “ K _ 
Explain why not Modify it to print that value correctly, regardless of the 
machine on which it runs. 

^define abs(x) (Cx) < 0 ? -Cx) : (x)) 

/* i t oa ; convert n to characters in a - modified • / 

void itoaCint n, char s[]) 

< 

int i , sign; 

void reversetchar s C 1 ) ; 

sign ■ n; /• record sign • / 

i - 0; 

do < /* < generate digits in reverse order*/ 

s[i**] ■ absCn X 10) ♦ 'O'; /• get next digit •/ 

} while ((n/* 10) !■ 0); /• delete it •/ 

if (sign < 0) 
s C i ♦♦ 1 « 
s C i ] - ' \ 0 ' ; 

reverseCs); 

> 


_ gwOTduze — 1 j 


cannot be converted to a positive number as in 
n ■ -n: 


because the largest positive number in a two’s complement representation is: 


|2*o'dsiK-lJ 


l 


Thevarriable sign saves the initial value of n. The macro aba finds the absolute 
value of n * to. This avoids the 


-(2 


wordsize — 1 


) 


problem because only the result of the modulus operator is made positive. 
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The conditional expression in the do-while statement has been changed 

from 

(n /* 10) > 0 
to 

On /- 10) !■ 0 


because if n remained negative throughout the loop, the loop would be infinite. 
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Excrete 3-5: (page M KM) 

Write the (unction itobtn.s.b) that converts the integer n into a base b 
character tepresentation in the string a. In particular, 1 1 ob < n, s , 1 6 ) formats 
n as a hexadecimal integer in s. 

/•ltob: convert n to characters In s - base b •/ 

void ltobflnt n, char st), lnt b) 

< 

int 1, ), sign; 

void reverseCchar st}); 


If (Cslgn ■ n) < 

0) /• record sign 

• / 

n » - n ; 

1-0; 

/• make n positive 

• / 

do < 

/• generate digits In reverse order 

■/ 

J • n X b; 

/• get next digit 

• / 

* 11 * ♦ 1 • C] 

<- 9) ? |*'0' : J♦ # a'-1 0 { 


> while C(n /» b) 

>0); /• delete it 

*/ 


If (sign < 0) 
slt**J - 
sill - 'VO'; 
reverseC s); 

> 

The contents of n are converted to base b so 
n x b 

returns a value between o and b - 1 , and 
n /- b 


deletes that number from n. The loop continues while n l b is greater than zero. 
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Exercise 3-6: (page 64 K&R) 

Write a version of i t oa that accepts three arguments instead of two. The third 
argument is a minimum field width; the converted number must be padded with 
blanks on the left if necessary to make it wide enough. 

^define abs(x) (<x) < 0 ? -Cx) : <x)) 


/• itoa: convert n to characters in a, w characters wide •/ 
void itoaCint n, char sM, int w) 

{ 

int i, sign; 

void reverse(char at)); 


> 


sign • n; /• record sign •/ 

i • 0; 

do < /• generate digits in reverse order*/ 

aC i♦♦] » abs(n 1 10) ♦ 'O'; /• get next digit •/ 

} while C(n/» 10) !-0); /• delete it •/ 

if (sign < 0) 
s[ i♦♦] - 

while (i < w) /• pad with blanks W 

s C i ♦ ♦ 1 - ' ' ; 
s C i ] - ' \ 0' ; 

reverse(a ); 


This function is similar to itoa in Exercise 3-4. The necessary modification is 

while Ci < w) 

s [ i ♦ ♦ 1 ■ ' ' ; 

The while loop pads the string s with blanks if necessary. 



chapter 4 Functions and Program Structure 


Exercise 4-1: (page 71 K&R) 

Write the function strrindexts.t), which returns the position of the rightmost 
occurrence of t in s, or -1 if there is none. 

/• strrindex: returns rightmost index of t in s, -1 if rone •/ 
lnt strrindextchar sf), char til) 

< 

int 1, J , k, pos; 
pos ■ - 1; 

for (l - 0; s[i] !• '\0'; i*r) { 

for (J-i, k - 0; tlkJ!*'\0' (( sCJ)--tm; j*», k**) 

ifCk>0SSt[k)--'\O') 
pos • i; 

> 

return pos ; 

> 


strrindex is similar to the routine strindex (page 69 K&R). When 
strmdex finds a match it returns the position of the first element of t in s. 
On the other hand, strrindex records the position of t in s and continues 
searching because the function is looking for the last (rightmost) occurrence of 
t in s: 

if Ck > 0 St ttk] ■- '\0'» 
pos - i; 


Another possible solution is: 
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'include <string.h> 

/* atrrindex: returns rightmost index of t in s, -1 if none •/ 
int strrindex(char 9(3, char tCJ) 

< 

int i , J , k ; 

for Ci ■ strlen(s) - strlen(t); i >■ 0; i - - ) < 

for Cj-i, k- 0; ttk]!-'\0' U sCj]--tCk]; k**> 

if Ck > 0 44 tCkl •- '\0'> 
return i ; 

> 

return - 1 j 

> 


This is a more efficient solution to the same problem. It begins at the 
end of the string s minus the length of the string t. If there is no match 
atrrindex steps back one position and tries again. As soon as atrrindex 
finds t in a it returns i; t is already the rightmost position where t occurs. 
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Exercise 4-2: (page 73 K&R) 

Extend a t o f to handle scientific notation of the form 
123.45e-6 

where a floating-point number may be followed by e or E and an optionally 
signed exponent. 

#include <ctyp>e.h> 

/• atof: convert string s to double •/ 

double atof(char all) 

< 

double val, power; 
int exp, i, sign; 

for Ci ■ D; i ss pace < s [ i ] ) ; i + O /• skip white space •/ 

sign ■ ( a C i ] ■■ '•') ? -1 : 1; 

if C s[i 1 ■- II s[i1 -- '- ') 

i ♦ ♦ ; 

for (val ■ 0.0; isdigit(sCil); i ♦ ♦ ) 

val ■ 10.0 • val ♦ (stil - '0'); 
if (s[ i 1 -- ' . ' ) 
i ♦ ♦ ; 

for (power • 1.0; isdigi t(st i 1 ) ; !♦♦) { 

val - 10.0 • val ♦ (stil - '0'); 

power *■ 10.0; 

> 

val ■ sign • val / power; 

if (sill -• 'e' II stil -- 'E') < 

sign ■ C a C ♦ ♦ i ) ■■ '-') ? -1:1; 

if (stil •• II 9(13 ■■ 

i ♦ ♦; 

for (exp • 0; isdigitCstil); i ♦ ♦ ) 

exp • 10 • exp ♦ (s(i 1 - '0'); 
if (sign ■■ 1) 

while (exp-- > 0) /• positive exponent •/ 

val *• 10; 

else 

while (exp-- > 0) /• negative exponent •/ 

val /- 10; 

> 

return val; 

> 
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The first half of the routine is a duplication of atof (page 71 K&R). The 
function skips white spaces, records the sign, and calculates the number. At 
this point the original atof returns the value of the number and the modified 
version handles scientific notation. 

The second half of the function handles the optional exponent. If an 
exponent does not exist then atof returns the number stored in val. If an 
exponent exists then the sign of the exponent is stored in the variable sign and 
the value of the exponent is calculated and stored in exp. 

The final operation 

if taign * ■ 1) 

while (exp-- > 0) 
val * ■ 10; 

else 

while (exp-- > 0) 
va 1 / ■ 10; 

adjusts the number according to the value of the exponent. If the exponent is 
positive, the number is multiplied by 10 exp times. If the exponent is negative, 
the number is divided by 10 exp times, val then contains the final number 
that is returned to the calling program. 

val is divided by 10 rather than multiplied by 0.1, since 0.1 is not an exact 
fraction in binary. In most machines, 0.1 is represented as slightly less than 
0.1 and therefore 10.0 times 0 1 is rarely 1.0. Repeated division by 10 is better 
than repeated multiplication by 0.1, but there is still a loss of accuracy. 
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Exercise 4-3: (page 79 K&R) 

Given the basic framework, it is straightforward to extend the calculator. Add 
the modulus (X) operator and provisions for negative numbers. 


' inc1ude < s t dio.h> 

'include <math.h> /• for atof() 


'define MAXOP 
'define NUMBER 


100 /• max size of operand or operator •/ 
'O' /« signal that a number was found •/ 


int getop(char II); 
void push(double); 
double pop(void); 


/• reverse Polish calculator •/ 

main C ) 

< 

i n t type; 
double op2; 
char s tMAXOP]; 


while ((type • getop(s)) !■ EOF) < 
switch (type) < 
case NUMBER: 

push(atofCs)); 
break; 
case '♦ ': 

pushCpopO 4 pop()); 
break ; 

case 

push(popC) • pop()); 
break; 
case ' - ' : 

op2 ■ pop(); 
push(pop() - op2); 
break ; 
case '/ 9 : 

op2 ■ pop(); 
if (op2 !■ 0.0) 

push(popC) / op2); 

else 

printfC*error: zero divisorNn"); 

break; 
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case : 

op2 • popC); 
if <op2 !- 0.0) 

pushCfmod(pop(), op2)>; 

else 

printf("error: zero divisor\n M >; 
break; 
case '\n': 

p rin t f("\ t X.8g\n M , popO); 
break; 
defau1t: 

printf<"error : unknown command Xs\n M , a); 
break ; 


We made modifications to the main program and get op. The routines 
push and pop (page 77 K&R) remain unchanged. 

The modulus operator (X) is handled like the division operator (/). The 
library function fmod calculates the remainder for the top two elements on the 
stack. op2 is the top element on the stack. 

This is the modified get op: 

'include <stdio.h> 

'include <string.h> 

'include <ctype.h> 

'define NUMBER '0' /• signal that a number was found */ 

int getchCvoid); 
void ungetchCint); 

/« getop: get next operator or numeric operand •/ 

int getoptchar st)> 

< 

int c, i; 

while CCstOJ ■ c • getchO) •• # # It c 'Nt') 

9(U - '\0'; 

i - 0; 

if C! i sdigi t(c) 44 c !- 44 c !• # - # ) 

return c; /* not a number •/ 
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if CisdigitCc ■ getchC)) II c ■■ 

a C♦♦13 ■ c; /* negative number •/ 

else < 

if Cc !• EOF) 

ungetchCc); 

return /» minus sign •/ 

) 

if CisdigitCc)) /• collect integer part •/ 

while CisdigitCsI + M) ■ c ■ getchO)) 


if Cc -• 

while CisdigitCst] 


/• collect fraction part */ 
c ■ getchC))) 


sii1 - ' \0 ' ; 
if ( c !■ EOF) 

ungetchCc); 
return NUMBER; 

> 


g e t op looks one character past the minus sign to determine if it is a negative 
number. For example, 

- t 

is a minus sign followed by a number. But 


-1 .23 


is a negative number. 

The extended calculator handles 

t -1 ♦ 

-to 3 X 

The first expression produces zero: 1 ♦ -1. The second expression pro¬ 
duces -1. 
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Exercise 4-4: (page 79 K&R) 

Add commands to print the top element of the stack without popping, to du¬ 
plicate it, and to swap the top two elements. Add a command to clear the 
stack. 


#include 

<stdio.h> 




/include 

<math.h> 

/• 

for atof() 

• / 

/def ine 

MAXOP 100 

/• 

max size of operand or operator 

*/ 

/de fine 

NUMBER 'O' 

/• 

signal that a number was found 

*/ 


int getop(char M > ; 
void pushCdouble); 
double pop(void); 
void clear(voidJ; 

/• reverse Polish calculator */ 

ma i n C ) 
i 

int type; 
double opl, op2; 
char sCMAXOPJ; 

while ((type ■ getop(s)) !» EOF) < 
switch (type) { 
case NUMBER: 

push(atof(s)); 
break ; 
case ' ♦ ': 

push(popC) ♦ pop()); 
break ; 
case : 

push(popC) • pop()); 
break; 
case '- * : 

op2 ■ pop(); 
push(popC) - op2); 
break; 
case '/•: 

op2 - pop(); 
if (op2 !■ 0.0) 

push(pop() / op2); 

else 

printf("error: zero divisor\n"); 
break; 
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case /* print top element of the stack */ 

op2 * popC); 

printfC ,, \tX.8g\n'*, cp2); 

pushCop2); 

break ; 

case 'c': /* clear the stack •/ 

clear(); 
break ; 

case 'd': /* duplicate top elem. of the stack */ 

op2 - popC); 
push(op2); 
push(op2); 
break ; 

case 's': /* swop the top two elements •/ 

opl • popC); 

op2 - popC); 

pushCopI); 
pushCop2); 
break; 
case '\n ': 

printfC”\tX.8g\n", popC)); 
break ; 
default: 

pr i ntfC"e rror: unknown command Xs\n", s); 
break; 


The newline operator pops the top element on the stack and prints it. We 
added a new operator, ">', that pops the top element of the stack, prints it, 
and pushes it back on the stack. We do not permanently pop the top element 
of the stack like the newline operator but we use the pop, print, push sequence 
to avoid letting the main program know about the stack or the stack position 
variables. 

To duplicate the top element of the stack we pop it and push it back twice. 

We swap the top two elements of the stack by popping them and by pushing 
them back in reverse order. 


71 The C Antwer Book 

It is easy to clear the stack; set sp to zero. So we added a new function 

that does exactly that and we put it together with push and pop. This way only 
the functions that maintain the stack refer to the stack and stack position var¬ 
iables. 

/• clear: clear the stack •/ 

void cleertvold) 

{ 

sp ■ o: 

> 
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Exercise 4-5: (page 79 K&R) 

Add access to library functions like am, exp, and pow. See <math.h> in 
Appendix B, Section 4 (page 250 K&R). 


'include 

<std i o.h> 






'include 

<string.h> 






'include 

<math.h> 

/• 

for atofO 



*/ 

'def ine 

MAXOP 100 

/* 

max slxe of 

operand or 

operator 

*/ 

'de fine 

NUMBER '0' 

/• 

signal that 

a number was found 

• / 

'de fine 

NAME 'n' 

/• 

signal that 

a name was 

\ 

found 

*/ 


int getoptcher []>; 
void push(double); 
double pop(void); 
void nvathfnc(char 115; 

/* reverse Polish calculator •/ 

me 1 n C 3 

< 

int type; 
double op2; 
char sCMAXOPl; 

while ((type - getop(s)) !• EOF) < 
switch (type) < 
case NUMBER: 

push(atof(s)); 
break; 
case NAME: 

mathfnc(s); 
break; 

case 

push(pop() 4 pop()); 
break; 
case '*': 

pushCpopO « pop())*, 
break; 

case 

op2 ■ pop(); 
push(pop() * op2); 
break; 
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case ‘: 

op2 * p°p*); 
if (op2 •* 0.0) 

pushCpopC) / op2); 

else 

printfC M error: zero divisorXn"); 
break; 
cose '\n *: 

printfC"Nt X .8g\n M , pop()>; 
break; 
default: 

printf("error: unknown command Xs\n" , 5 ); 
break ; 


/• mathfnc: check string 5 for supported math functions */ 
void mathfncCchar stl) 
i 

double op2; 

if CstrcmpCs, "sin") ■■ 0) 
pushCsinCpopC))); 
else if (strcmpCs, "cos") ■« 0) 
pushCcosCpopC))); 
else if CstrcmpCs, ’’exp") «■ 0) 
pu5hCexpCpopC))); 
else if CstrcmpCs, "pow") «« 0) { 
op2 ■ popC); 
pushCpowCpopC), op2)); 

> else 

printfC"error: Xs not supported\n", s); 

> 


The source file for the modified get op: 


#include 
#in c1ude 
finelude 


< 5 t dio.h> 
<string.h> 

< c t y pe . h > 


#de fine NUMBE R 
^define NAME 


' 0 ' 


* n * 


/• signa1 that a 
/• signal that a 


number was found 
name was found 


• / 
• / 


int getchCvoid); 
void ungetchCint); 
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/• getop: get next operator, numeric operand, or math fnc •/ 
Int getopCchar 3 [J ) 

< 

int c, i ; 


while C ( s C 0 ] - c « getchO) 

• « ' 

4 it c -- '\t') 


5 C13 - '\0'; 




i » 0; 




if (1 a 1ower(c)) < 

/• 

command or NAME 

• / 

while (islower(s[++i) * 

c • 

get ch( ))) 


3 [ i 1 - ' \ 0 '; 
if (c !* EOF) 




ungetch(c); 

/• 

went one char too far 

• / 

if (strlen(s) > 1) 




return NAME; 

/• 

>1 char; it is NAME 

• / 

else 




return c ; 

/• 

it may be a command 

•/ 

i 

if (!iadigit(c) ll c ■* 




return c; 

/ • 

not a number 

•/ 

if (isdigitCc)) 

/• 

collect integer part 

*/ 

while (isdig 1 1Cs[♦ ♦ i 1 * 

c » 

getch())) 


if Cc «« '. ') 

/• 

collect fraction part 

« / 

while (isdigit(s[++i] » 

c ■ 

getchO)) 



all) - ' \0 '; 

if C c «- EOF) 

ungetchtc); 
return NUMBER; 

} 


We modified getop to be able to gather a string of lower case letters and 
return it with the type NAME. The main program recognizes NAME as one of the 
valid types and invokes ma t h f n c . 

The routine mathfnc is new. It performs a sequence of if statements 
until it finds a function name that matches the string a or it reports an error. 
If the string a is one of the supported functions, ma t hf n c pops enough elements 
from the stack and invokes the math function. The math function returns a 
value and mathf nc pushes it back on the stack. 

For example, a i n expects an argument in radians and the sine of PI / 2 
is one. 


3.14159265 2 / ain 
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The first operation divides PI by 2 and pushes the result back on the stack. 
The function sin pops the top element of the stack, calculates the sine, and 
pushes the result back. The result is one. 

3.H1592 2 / sin 0 cos ♦ 

produces 2 because the sine of p i / 2 is one and the cosine of zero is one. 
Another example, 

5 2 pow 4 2 pow ♦ 

raises 5 to the power 2, 4 to the power 2. and adds the two values. 

get op does nc<t know about specific function names; it just returns strings 
as it finds them. This way it is straightforward to expand mathf nc to include 
more functions. 
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Exercise 4-6: (page 79 K&R) 

Add commands for handling variables. (It’s easy to provide twenty-six variables 
with single-letter names.) Add a variable for the most recently printed value. 


9 include 

<stdio .h> 







»include 

<moth.h> 


/• 

for 

atof( ) 


•/ 

rde fine 

MAXOP 

1 00 

/• 

max 

size of 

operand or operator 

•/ 

fde fine 

NUMBER 

'0' 

/♦ 

sig 

nal that 

a number was found 

•/ 


i n t getopC char 1 ]>; 
void push(double); 
double pop(void); 

/•reverse Polish calculator •/ 

MinO 

< 

int i, type, var - 0; 
double op2, v» 
cher s(MAXOP]; 
double varleble[26]; 

for 11 ■ 0; i < 26; !♦♦) 
vartable!11 • 0.0; 
while ((type ■ getop(s)) !»E0F) ( 
switch (type) < 
case HUMBER: 

push(atof(s)); 

break; 

case 

push(pop() ♦ popO); 
break; 

case 

push(pop() • popO); 
break ; 

case 

op2 - popO; 
push(pop() * op2); 
break; 

op2 ■ popO; 
if (op2 !* 0.0) 

push(pop() / op2); 

else 

printf("error: tcro dlvlsor\n") ; 

break; 


case 
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case '*': 

pop(); 

if (var >« 'A' 14 var <- 'Z') 

variablelvar - 'A'] ■ pop( ) ; 

e 1 se 

printf("error: no variable name\n"); 
break; 
case ' \n ': 

v ■ p o p ( ); 

pr intf("\tX.8g\n", v); 
break; 
default: 

if (type >• 'A' 44 type <■ 'Z') 
push(variab1e[type - 'A'3); 
else if (type -- ' v # ) 
push(v ); 

else 

printf("error: unknown command Xs\n", s); 
break ; 

> 

var - type; 

> 

return 0; 

> 


The variables we added are upper case letters from A to Z. The letters 
serve as the index to the array variable. We added a lower case variable v that 
contains the most recently printed value. 

Whenever the program finds a variable name (A-z, or v) it pushes its value 
on the stack. We also have a new operator, * ■ *, that assigns an element from 
the stack to the preceding variable name. For example, 

3 A - 

assigns the value 3 to the variable A. Then 

2 A * 

adds 2 to 3 (the value assigned to the variable A). At the newline operator the 
program prints 5 and also assigns 5 to the variable v. If the next operation is 

v 1 ♦ 


it produces 6: 5 + 1. 
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Exercise 4-7: (page 79 K&R) 


Write a routine u nge t sc a J that will push back an entire string onto the input. 
Should ungets know about buf and bufp, or should it just use ungetch? 


'include (string.h> 

/• ungets: push string back onto the input 
void ungetstchar stl) 

< 

int len - strlen(s); 
void ungetch(int); 


> 


while (len > 0) 

ungetch(s[--lenl); 


The variable len contains the number of characters in the string s (ex¬ 
cluding the terminating *\0'), which is determined by the function strlen 
(page 39 K&R). 

ungets calls the routine ungetch (page 79 K&R) len times, each time 
pushing back a character from the string a onto the input, ungets pushes the 
string back in reverse order. 

ungets does not need to know about buf and bufp. The routine un¬ 
getch handles buf, bufp, and error checking. 
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Exercise 4-8: (page 79 K&R) 

Suppose that there will never be more than one character of pushback. Modify 
getch and ungetch accordingly. 

#inc1ude < a t d i o.h> 

char buf » 0; 

/• getch: get a Cpoasifc.y pushed back) character */ 

int getch(vo*d) 

< 

int c ; 

if Cbuf ! • 0) 
c ■ buf; 

el ae 

c ■ getcherC); 
buf ■ 0; 
return c; 

> 


/• ungetch: push character 
void ungetchCint c) 

{ 

if Cbuf ! ■ 0) 

printfC"ungetch: 

eLae 


back onto the input 


too many charactera\n"); 


•/ 


The buffer, buf , is no longer an array because there will never be more than 1 
character in the buffer at any time. 

bu f is initialized to zero at load time and get ch resets bu f to zero every 
time it gets a character, ungetch checks for an empty buffer before it pushes 
a character back. If the buffer is not empty then ungetch produces an error 
message. 
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Exercise 4-9: (page 79 K&R) 

Our getch and ungetch do not handle a pushed-back EOF correctly. Decide 
what their properties ought to be if an EOF is pushed back, then implement your 
design. 

/include <a t d i o . h> 

/define BUFSIZE 100 

int buf[BUFSIZE1; /• buffer for ungetch «/ 

int bufp * 0; /• next free position in buf •/ 

/• getch: get e (possibly pushed beck) character • / 

int getch(void) 

{ 

return (bufp > 0) 7 buft--bufpl : getcharO; 

) 

/* ungetch: push character back onto the input •/ 

void ungetch(int c) 

( 

if (bufp >- BUFSIZE) 

pr intf("ungetch: too many charactersVn"); 

else 

bufIbu fp *♦1 ■ c; 

> 

In the routines getch and ungetch (page 79 K&R), the buffer, buf, is 
declared to be an array of characters: 

char buf(BUFSIZE); 

The C programming language does not require a char variable to be 
s igned or uns igned (page 43 K&R). When a char is converted to an int. 
it might never produce a negative number. On some machines, if the leftmost 
bit of a char is 1, it will produce a negative number when converted to an int. 
On others, a char is converted to an i nt by addingzeros at the left end. This 
conversion will always produce a positive number, regardless of whether the 
leftmost bit was 1 or not. 

In hexadecimal notation -1 is OxFFFF (to 16 bits). When OxFFFF is 
stored in a char, the actual number being stored is OxFF. When OxFF is 
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converted to an t n t, it might produce OxOOFF, which is 255, or OxFFFF, which 
is -1. 


negative number ( — 1) —► character —» integer 

OxFFFF OxFF OxOOFF (255) 

OxFFFF OxFF OxFFFF (-1) 

If we are going to treat EOF (-1) as any other character, buf should be 
declared as an array of integers: 

int buftBUFSlZE); 

No conversions will occur and EOF (-l)or any negative number will be 
handled in a portable way. 
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Exercise 4-10: (page 79 K&R) 

An alternate organization uses g e 1 1 i ne to read an entire input line; this makes 
get ch and ungetch unnecessary. Revise the calculator to use this approach 

^include <stdio.h> 

^include retype.h> 

'define MAXLINE 100 

'define NUMBER 'O' /♦ signal that a number was found •/ 

int getlineCchar linet), int limit); 


i rt 

li » 0; 

/• 

input line 

index 

• / 

char line [MAXIINE1 

/• 

one input 

line 

• / 

/<• 

getop: get next 

operator 

or numeric 

operand 

• / 

int 

{ 

getoptchar s [ 3 > 






int c, i ; 






if C 1 i ne 11 i 3 ■■ ' \0 ' ) 

if Cget 1ine(1 i ne, MAXLINE) ■» 0) 
return EOF; 

else 

li » 0; 

while ((s(03 ■ c ■ linetli^*]) -■ ' * II c ■■ r \ t # ) 
s [ 1 3 • ' \ 0 '; 

if (!isdigit(c) *4 c !■ '.') 

return c; /• not a 1 number •/ 

i - 0; 

if <isdigitOc» /• collect integer part •/ 

while (isdigit(s[++il • c * linelli**])) 

if (c *■ '.') /• collect fraction part •/ 

while (isdigit(s[++i3 • c ■ lineCli*+3)) 

s [ i 3 - ' \ 0 '; 

1 i - - ; 

return NUMBER; 

) 

Instead of using getch and ungetch we use get line in the function 
get op. l i ne is an array that contains one entire input line at a time; 1 1 is the 
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index for the next character in 1 1 ne. We made 1 1 ne and 1 1 external variables 
so that they will maintain their values between calls, unlike local variables. 

If g e t op is at the end of the line (or we do not have a line yet) 

if tlinetui ■* '\0'> 

then getop invokes get l me to get a line. 

In the original getop (page 78 K&R) the function invokes get ch every 
time it needs another character. In this version we get the character at position 
1 1 , in line, and then we increment 1 1 . At the end of the function, instead 
of calling unget ch to push a character back, we decrement 1 1 because we went 
one character too far. 

Remember that any function may use and modify external variables in 
another function, so l i and 1 i ne could be modified by a function other than 
getop. Sometimes we want to prevent this from happening so we should declare 
the variables to be static. We did not do so because static variables are 
not discussed until page 83 K&R. 
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Exercise 4-11: (page 83 K&R) 

Modify get op so that it doesn't need to use ungetch. Hint: use an internal 
static variable. 

^include <stdio.h> 

^include <ctype.h> 

^define NUMBER '0 r /« signal that a number was found *! 

int getch(void); 

/♦ getop: get next operator or numeric operand */ 

int getop(char stl) 

{ 

int c, i ; 

static int lastc - 0; 

if (lastc -• 0) 

c ■ g e t c h O ; 
else < 

c ■ lastc ; 
lastc * 0; 

) 

while ((stOl * c) ** ' * I! c '\t') 
c ■ getchC); 

9(1} « 'NO ' ; 

if (!iadigit(c) c ■- '.') 

return c; /» not a number * / 

i - 0; 

if (isdigit(c)) /• collect integer part */ 

while (isdigit(sl♦♦ i ] * c ■ getchO)) 

if (c »* '.') /• collect fraction part •/ 

while ( i sdigi t ( s [ ♦ ♦ i ] ■ c ■ getchO)) 

9(1} » 'NO'; 

if (c !- EOF) 

1 a 51 c ■ c ; 
return NUMBER; 

> 

We modified getop to have an internal static variable that remembers the 
last character that we should push back onto the input. Since we do not use 
u n g e t ch we store the character in lastc. 
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When getop is invoked it checks for a previous character in lastc. If 
one does not exist the function invokes get ch to get a new character. If there 
is a previous character then getop copies the character into c and zeros out 
lastc. The first while statement changed a bit. The reason is that getop 
needs to get another character only after it examines ihe current character 
in c. 
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Exercise 4-12: (page 88 K&R) 

Adapt the ideas of pr i nt d to write a recursive version of 1 1 oa; that is, convert 
an integer into a siring by calling a recursive routine. 

(•’include <math.h> 

/• itoa: convert n to characters in s ; re mrsive * 

void itoaCint n, char sCJ) 

{ 

static int i; 

if (n / 10) 

it oa ( n / 10, 3 ) ; 
else < 

i - 0; 
if (n < 0) 

s E 1 ♦ ♦ ] - • - '; 

> 

s Ci♦♦1 - absCn) l 10 * '0 # ; 
sli] » '\0'-, 

} 


i t oa receives two arguments: an integer n and array of characters s. If 
the result of the integer division n /1 0 is not zero then itoa calls itself with 
n /1 0: 

if (n / 10) 

itoa(n / 10, s); 

When n /1 0 is zero in one of the recursive calls we are looking at the most 
significant (leftmost) digit in n. We use a static variable 1 as the index for 
the array s. If n is negative we put a minus sign in the first position of the 
array s and increment i. As itoa returns from the recursive calls it calculates 
the digits from left to right. Note that each level adds a • \0 ' to terminate the 
string and the next level overwrites the ' \ 0 *, except the last. 
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Exercise 4-13: (page 88 K&RJ 

Write a recursive version of the function reverseCs), which reverses the string 
a in place. 

#include <string.h> 

/• reverge: reverse string s in place •/ 

void reverseCchar s(l) 

< 

void rever ser (char sN, int i, int len); 
reverserts, 0, strlen(s)); 

> 

/* reverser: reverse string s in place; recursive */ 

void reversertchar st), int i, int len) 

< 

int c , j ; 

j * len - <i ♦ 1); 
if C i < j ) i 

c • sC i 1 ; 
s t i J » s [ j ] ; 
stj ] - c ; 

reverserts, len); 

} 

> 


We need to maintain the same user interface to the routine reverse 
regardless of implementation. Therefore, we pass only the character string to 
reverse. 

reverse determines the length of the string and then calls reverser, 
which reverses the string s in place. 

reverser receives three arguments: s is the string to be reversed, i is 
the left-side index for the string, and 1 en is the length of the string (s tr lent s), 
page 39 K&R). 

Initially, i is equal to 0. j is the right-side index for the string, j is 
computed as 

j • len - Ci ♦ 1); 

The characters in the string are swapped from the outside in. For example, 
the first two characters swapped are stdl and *[len-1] and the second two 
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characters swapped are stu and itlen-2). The left-side index, i, is incre¬ 
mented by 1, every time reverser is called: 

reverserti, ♦ len>; 

The swapping continues until either the two indexes are pointing to the 
same characters (t - - )) or the left-side index points to a character to the right 
of the right-side index (l > j). 

This is not a good application of recursion. Certain problems lend them¬ 
selves to recursive solutions—see, for example, the function treeprint on 
page 142 K&R. Other problems are best solved without recursion. This is 
one of them. 
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Exercise 4-14: (page 91 K&R) 

Define a macro swap< t , x, y ) that interchanges two arguments of type t. (Block 
structure will help.) 

rdef me swaptt, x, y) { t _z ; \ 

_z - y: \ 

y ■ x ; \ 

x - _ z; } 

We use the braces to define a new block. At the beginning of a block we 
can declare local variables. _z is a local variable of type t that helps swap the 
two arguments. 

The swap macro works if neither of the arguments is _z. If one of the 
arguments has the name _z, 

swap(int, _ z, x ); 

then when the macro is expanded, it becomes 
< int _z; _z 3 _z; _z - x; x - _z; f 

and the two arguments are not swapped. The assumption is that _z will not 
be used as a variable name. 


chapter 5 Pointers and Arrays 


Exercise 5-1: (page 97 K&R) 

As written, get i n t treats a ♦ or - not followed by a digit as avalid representation 
of zero. Fix it to push such a character back on the input. 


^include <stdio.h> 
^include <ctype.h> 


int getchCvo 1 d); 
void ungetch(int); 

/* getint: get next integer from input into »pn ♦/ 

int getln t(ln t »pn) 

{ 

int c, d, sign*, 


while (isspace(c * getchC))) 


skip white space •/ 


if C!isdigit(c) 44 c !» EOF 44 c 
ungetch(c); I • 

return 0; 

> 

sign ■ (c ■ ■ ? -1 : 1*, 

if (c -- I ! c -- ') ( 

d * c *, / • 

lfCfisdigitCc * getch())) < 
if (c • - EOF) 

ungetchCc); /• 
ungetch(d); /• 

return d; /• 

> 

> 


!■ ' 44c !■ 

it's not a number 


remember sign char 


push back non-digit 
push back sign char 
return sign char 


{ 


*/ 


•/ 

•/ 


♦/ 


97 
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for ( «pn ■ 0; isdigit(c); c - getchC)) 
« p n ■ 10 * • p n ♦ (c - '0'); 

•pn sign: 
if (c •- EOF) 

ungetcht c); 
return c; 


When there is a sign character, getint saves it in d and gets the next 
character. If the next character is not a digit and it is not EOF, get mt pushes 
it back on the input. Then the function pushes back the sign character and 
returns the sign character to indicate this situation. 
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Exercise 5-2: (page 97 K&R) 

Write g e t f l oa t, the floating-point analog of g e t i n t. What type does g e t - 
float return as its function value? 

^include <stdio.h> 

^include <ctype.h> 

i n t get chC </o i d ) ; 
void ungetchCint); 

/* getfloat: get next -floating-point number -from input */ 

int getf1oat(float *pn) 

< 

int c, sign; 
float power; 

while (isspace(c * getch())) /* skip white space •/ 

if CfisdigitCc) U c !* EOF 44 c !■ '** 44 
c !■ ' -' 44 c !■ ') { 

ungetch(c); /* it's not a number*/ 

return 0; 

> 

sign - C c »■'-')? -1:1; 

if (c - • IS c » * '*') 

c ■ getchC); 

for (*pn ■ 0.0; isdigit(c); c ■ getch()) 

•pn ■ 10.0 * *pn ♦ Cc - '0'); /• integer part * / 

if (c -- ') 

c ■ getchC); 

for (power ■ 1.0; isdigit(c); c ■ getchC)) { 

•pn ■ 10.0 * «pn ♦ (c - ' 0') *, /• fractional part */ 
power #» 10.0; 

> 

*pn *■ siqn / power; /* final number •/ 

if (c •« EOF) 

ungetch(c); 
return c; 

> 


The routine getf loat is similar to the routine getint (page 97 K&R). 
get ft oat skips white spaces, records the sign, and stores the integer part of 
the number at the address in pn. 

get f loat also handles the fractional part of the number (but not scientific 
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notation). The fractional part is added to • pn in the same fashion as the integer 
part: 

•pn ■ 10.0 • • p n ♦ <c - '0'); 

For each digit collected after the decimal point the variable power is 
multiplied by 10. For example, if 0 digits follow the decimal point power equals 
1, if 1 digit follows the decimal point power equals 10, and if 3 digits follow the 
decimal point power equals 1000. 

And then get float multiplies the final value of »pn by sign/power to 
get the floating-point value. 

The function returns either EOF or the ASCII value of the first character 
after the floating-point number. The function type is int. 
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Exercise 5-3: (page 107 K&R) 

Write a pointer version of the function 9 treat that we showed in Chapter 2: 
atreatt s, t) copies the string t to the end of 3. 

/• street: concatenate t to the end of s; pointer version •/ 
void atrcatCchar » 3 , char «t ) 

( 

while C•3) 

9 ♦ * ; 

while ( • 3♦ ♦ « • t ♦ «) 


> 


Initially s and t point to the beginning of the character strings. 

The first while loop increments the pointer 3 until it finds the end of 
string marker (' \0 '). The statement 

whi 1 e ( • 3 ) 

is true as long as the character is not the end of the string marker. 

The second wh 1 le loop appends the string t to the string s: 

while C*3 + * ■ «t ♦ + ) 


The above statement assigns to *9 whatever is in • t, increments both 
pointers, and continues as long as t does not point to the end of string marker. 
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Exercise 5-4: (page 107 K&R) 

Write the function at rendCa , t), which returns 1 if the string t occurs at the 
end of the string s, and zero otherwise. 

/ * atrend: return 1 if string t occurs at the end of s * I 

int strendCchar *s, char »t) 

< 


char »bs ■ 

5 1 

/* remember beginning of 

strs 

• / 

char *bt • 

t ; 




for ( ; • a 

; 5*0 

/• end of the string s 


*/ 

for < ; • t 

; t ♦ ♦ ) 

/• end of the string t 


• / 

for C ; • a 

.. *t ; 

a--, t--) 



if Ct 

■ ■ bt ! 

IS s •■ bs) 




break ; 

/* at the beginning of a 

str 

• / 

if C•a -« 

• t & & t 

■■ bt && »s !» '\0') 




return 1 ; 

else 

return 0 ; 


We save the beginning addresses of the strings in the pointers bs and bt 
and then we find the end of each string as we did in a t rca t. To determine if 
the string t occurs at the end of the string a we start comparing the last character 
in s with the last character in t and move toward the beginning of the strings. 

s trend returns 1 (the string t occurs at the end of the string a) when the 
characters in t match the characters in a, the pointer t is back at the beginning 
of the string, and the strings are not empty: 

if (*a - - *t it t -- bt tl »a !■ '\0') 
return 1 ; 
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Exercise S-S: (page 107 K&R) 

Write the versions of the library functions strncpy, strncat, and strncnp, 
which operate on at most the first n characters of their argument strings. For 
example, a trncpyf s, t ,n) copies at most n characters of t to 5 . Full de¬ 
scriptions are in Appendix B (page 249 K&R). 

/* strncpy: copy n characters from t to s •/ 

void strncpyCchar *s, char *t, int n) 

< 

while <«t 4 4 n-- > 0) 

• s ♦ ♦ - • t * ♦; 
while C n-- > 0) 

« s ♦ ♦ - ' \ 0 ' ; 

> 

/• strrcat: concatenate n characters of t to the end of s •/ 
void strncaUchar «s, char *t, int n) 

< 

void strncpyCchar ♦ s , char ♦ t , int n); 
irt strlenCchar •)-, 

strncpyCs+strlenCs), t, n); 

> 

/* strncmp: compare at most n characters of t with s */ 

int strncmpCchar «s, char *t, int n) 

< 

for C *5 * * • t ; s ♦ ♦ , t + ♦ ) 

if C * s = = '\Q' !{ - -n <= 0) 
return 0; 
return «s - «t; 

> 


The functions strncpy and strncat have the type void as strcpy on 
page 105 K&R. The library versions of these functions return a pointer to the 
beginning of the target string. 

strncpy copies at most n characters from t to s. If t has less than n 
characters we pad the string s with 'NO'. 

strncat invokes strncpy to copy at most n characters from the string 
t starting at the end of the string s. 

strncmp compares at most n characters of t with characters of s. The 
function is similar to strcmp on page 106 K&R. This time we terminate the 
comparison when we find the end of the strings or we successfully compare n 
characters: 

if (* s -= 'NO' H --n <- 0) 
r e t u r n 0 ; 
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Exercise 5-6: (page 107 K&R) 

Rewrite appropriate programs from earlier chapters and exercises with pointers 
instead of array indexing. Good possibilities include get n ne (Chapters 1 and 
4), atoi, t toe, and their variants (Chapters 2, 3. and 4), reverse (Chapter 
3), and atrtndex and getop (Chapter 4). 

'include <stdlo.h> 

/• getline: reed a line into s, return length •/ 

int get 1iretchar *s, int lim) 

{ 

int c ; 

chor ♦ t ■ s; 

while <- -1im > 0 14 (c*getchar()) !■ EOF At c !• '\n') 

• 5 *» ■ c ; 
if Cc ■■ '\n'J 
•a** ■ c; 

• a - 'VO'; 
return a - t; 

> 


getline receives a pointer to an array of characters. We use • a instead 
of a 1 11 to refer to an element in the array and we increment the pointer a to 
travel down the array. 

The statement 

a 1 i ♦ ♦ 1 - c j 

is equivalent to 

• a*» • c ; 

At the beginning of the function, a points to the beginning of the array 
and we save that address in the pointer t: 

char «t ■ a; 

After getline reads a line, a points to the terminating character (' \ 0') 
t still points to the first character in the line so the length of the line is a - 1 . 

'include retype.h> 

/* atoi: convert 9 to integer; pointer version •/ 

int atoiCchar «s) 

< 
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1n t n, sign; 

for C ; isspace(«s); s^O /« skip white space •/ 

5 

sign - C«s ■■ '-'} ? -1:1; 

if (»s -- *♦' II •s -- *-') /• skip sign •/ 

; 

for (n * 0; isdigit(*s); s**} 
n ■ iO • n ♦ «s - 'O'; 
return sign • n; 


s(i ] is equivalent to «s. s t 3 is equivalent to «s* ♦. 
void reverse(char • ); 


/• itoa: convert n to characters in s; pointer version •/ 

void itoaCint n, char »s> 

< 

i n t sign; 

char «t - s; /• save pointer to s •/ 


> 


if ((sign- n ) < 0) record sign 

n - -n; /• make n positive 

do ( /• generate digits in reverse 

«s** - n X 10 ♦ 'O'; get next digit 

> while ((n /- 10? > 0); delete it 

if (sign < 0) 

« g ♦ ♦ ■ 

*5 - '\ 0 ' ; 


•/ 

•/ 

order */ 
♦/ 
• / 


reverse(t); 


The character pointer t is initialized to point to the first element in the 
string s: 

char •t - s ; 

The statement 

* 3 ♦ ♦ ■ n X 10 * 'O'; 

is equivalent to 

sfi♦♦I • n X 10 ♦ 'O'; 
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We invoke reverse with a pointer to the beginning of the string s 
'include <string.h> 

/•reverse: reverse string s in place •/ 

void reversefchar *s) 

< 

i nt c; 
char «t; 

for (t ■ s * (strlen(s)-1 ); s < t; s^*, t- -) { 
c ■ • s; 

•s • •t; 

• t • c ; 

> 

> 


s points to the first character of the string and we set the character pointer 
t to point to the last character of the string (excluding the terminating '\ 0 '): 

t - s ♦ CstrlenCs)-1 ) 

• s is equivalent to s (i ] and • t is equivalent to s C j 3. The test in the 
for loop 

s < t 

is equivalent to the test 
i < j 

s ♦ ♦ has the same effect as incrementing the index i C i ♦ ♦ ) and t - - has 
the same effect as decrementing the index j Cj -- ). 

/• strindex: return index of t in s, -1 if none ♦/ 

int strindex(char «s, char »t) 

< 

char «b • s; /• beginning of string s •/ 

char •p, •r; 

for C; •s !■ '\0'; ■ { 

for ( p ■ s, r ■ t; •r !■ *\0 ' U «p ■■ «r; p+», r♦♦) 

if Cr > t 44 «r •• MO') 
return s - b; 

} 

return -1; 

} 
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s 1 1 1 is replaced by • a, a [ j 1 is replaced by • p, and 11 It I is replaced by 
• r. b is a character pointer that always points to the first element of the string 
a(aCOI). p - a is equivalent to j * i. r - t is equivalent to k ■ 0. 
When the if statement is true 

if (r > t U *r ■ ■ * \ 0 ' ) 

a match exists and atrindex returns the index of t in the string a: 
return s - b; 


^include <ctype.h> 

/• otof: convert string s to double; pointer version •/ 

double atofCchar «s) 

< 

double val, power; 
l n t sign; 

for < ; isspace(*s); s* + ) /• skip white space */ 

sign ■ ( • s * * ? -1 : i • 

if ( ♦ 3 * ■ II *3 »■ ' ~) 

s ♦ ♦; 

for (val - 0.0; isdigitOs); $♦♦) 

val ■ 10.0 • val ♦ («s - *0'); 
if ( » s ■ ■ ' . ') 

3 

for. (power ■ 1.0; isdigit(»s); 3*0 ( 
val ■ 10.0 • val ♦ («s - '0'); 
power * * 10.0; 

> 

return sign • val / power; 

} 


s C i ♦ ♦ 3 is equivalent to •s**. 
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#in c1ude < s tdio.h> 

^include <ctype.h> 

^define NUMBER # 0' /* signal that a number was found •/ 

int getchCvoid); 
void ungetch(int); 

/• getop: get next operator or numeric operand; pointer ver •/ 
int getopCchar- «a) 

{ 

int c; 

while C C • 5 * c * getchC)) ** ' ' ! S c 8 * '\t') 

•CsM) - 'NO'; 
if (!isdigit(c) 4* c ! a 

return c; /• not a number •/ 

if (isdigit(c)) /• collect integer part •/ 

while (isdigit(*++s » c - getchO)) 

if Cc ■■ '.') /• collect fraction part •/ 

while Cisdlg i t(•♦♦s * c ■ getchC))) 

*s - ' NO' ; 
if (c !- EOF) 

unge tch(c); 
return NUMBER; 

> 

We use pointers to replace references to array elements. The changes are 
straightforward. Instead of 

s [U - 'NO*; 

we use 

*(*♦1) ■ 'NO'; 

to place an end of string marker at the second position of the array without 
changing the pointer. 
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Exercise 5-7: (page 110 K&R) 

Rewrite readlines to store lines in an array supplied by main, rather than 
calling alloc to maintain storage. How much faster is the program? 


'include <string. 

h > 





^define MAXLEN 

1 000 

/• maximum 

length of 

line 

• / 

'define MAXSTOR 

5000 

/* size of 

ava i lab 1e 

storage space 

• / 

int get 1ine(char • 

» i r t ) ; 





/• readlines: read 

input 

lines 



• / 

int readlines(char 

•lineptrM, char 

•1 inestor 

, int max lines) 



int len, nlines; 
char linetMAXLENl; 
char »p ■ linestor; 

char Minestop - lineator ♦ MAXSTOR ; 
nlines * 0; 

while (Clan a get 1 1 neC1 1 ne, MAXLEN)) > 0) 

if (nlines maxlines IS p+len > linestop) 
r e t a r n - 1 ; 
else < 

linetlen-1] ■ '\0'; /• delete newline •/ 

strcpyCp, line); 

1ineptrIn 1 ines♦ ♦ 1 * p; 
p ♦■ len; 

> 

return nlines; 

> 


The main routine supplies the array 1 inestor where read lines stores 
the text for the lines. The character pointer p is initialized to point to the first 
element of 1 inestor: 

cha r »p * linestor; 

The original routine readl mes (page 109 K&R) uses Ihe routine alloc 
(page 101 K&R): 

if ({nlines >■ maxlines 11 Cp * alloc(len)) - - NULL) 
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In this version read tines stores line in linestor starting at position 
p. The statement 

if tnlines >■ maxlines 11 p+len i linestop) 

ensures that there is available space in linestor. 

This version ofreadiines is slightly faster than the original one. 
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Exercise5-8: (page 112 K&R) 

There is no error checking in day_of w year or month_day. Remedy this 
defect. 

static char daytabC2]t131 ■ < 

<0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31>, 

<0, 31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31> 

>; 


/• day_of_year: set day of year from month 4 day • / 

int day_of_yearC int yea-r , int month, int day) 

< 

int i, leap; 

leap ■ yearXH •« 0 44 yearXI00 !■ 0 II yearX400 ■■ 0; 

if (month < 1 II month > 12) 
return -1; 

If (day < 1 II day > daytabC1eap][month]) 
return -1 ; 

for (i ■ 1; i < month; !♦♦) 
day ♦ ■ daytab[1eapH 1 ] ; 

return day; 

> 


/• month^day: set month, day from day of year • / 

void month_day(int year, int yearday, int •pmonth, int *pday> 

( 

int 1, 1eap ; 

if (year < 1) t 

•pmonth ■ -1; 

•pday ■ -1; 
return; 

> 

leap ■ yearXI ■■ 0 44 yearXIOO !■ 0 II yearX400 ■■ 0; 
for (i ■ 1; 1 <• 12 44 yearday > daytabt1eap 1Ci3; l**) 
yearday -■ daytab[leap)(i1; 
if (i > 12 44 yearday > daytab(1eap)t121) < 

•pmonth ■ -1; 

• pday ■ -1 ; 

> else < 

•pmonth ■ i; 

•pday ■ yearday; 

> 

} 
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In day_of_year we check for reasonable values in month and day. If 
month is less than one or greater than twelve, day.of.year returns -1. If 
day is less than one or day exceeds the number of days for the month, the 
function returns — 1. 

In month.day we first check for negative year. You may want to add 
this kind of check in day.of .year also. Then we proceed to decrement year - 
day while we check that the month (index i) does not exceed 12. If the loop 
terminates with month 13 and the value inyearday exceeds the number of days 
in the last month of the year, then yearday started with an incorrect value and 
we set both month and day to - 1. Otherwise the function month.day received 
correct values. 
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Exercise 5-9: (page 114 K&R) 

Rewrite the routines day_of_yeor and month_doy with pointers instead of 
indexing. 

static char daytab[2 ] [13] - { 

<0, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31>, 

(0, 3t , 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31 > 

) ; 

/• day_of_year: set day of year from month 4 day •/ 

int day_of_year(int year, int month, int day) 

( 

int leap; 
char «p ; 

leap ■ y e a r X 4 ■■ 0 AA yearXIOO •« 0 Si y ea r X 4 0 0 * * 0; 
p - daytabt1eap 1; 
while (--month) 

day • ♦♦p; 
return day; 

> 

/• month_day: set month, day from day of year •/ 

void month_dayCint year, int yearday, int *pmonth, int «pday) 

{ 

int leap; 
char •p; 

leap - yearX4 -- 0 AA yearXIOO !- 0 il yearX400 -■ 0; 
p ■ day tab! leap] ; 
while (yearday > «*+p) 
yearday -■ *p; 

•pmonth ■ p - »(daytab ♦ leap); 

•pday ■ yearday; 

> 

p points to the first or second row of day tab depending on the value of leap: 
p ■ day tab C1eap ] ; 

The for loop in the original day_of_year routine 

for (i ■ 1; i < month; !♦♦) 
day daytabt1eapJ[i]; 
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is equivalent to the while loop 

while < --mon th) 

day ♦« •♦♦p; 

in the revised day_of_year routine. 

The for loop in the original month_day routine 

for (i » 1; yearday > daytabt 1 eap 3 [ i 3 ; !♦♦) 

yearday -■ daytabtleapHl3; 

is equivalent to the statements 

p " daytab[1eap 3; 

while (yearday > • ♦♦p) 
yearday “• «p; 


in the revised month_day routine. 
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Exercise 5-10: (page 118 K&R) 

Write the program expr, which evaluates a reverse Polish expression from the 
command line, where each operator or operand is a separate argument. For 
example, 

expr 2 3 H ♦ * 

evaluates 2 x (3 + 4). 


• Include 

<stdio.h> 





#inc lude 

<math.h> 

/• 

for a t of ( ) 


• / 

#define 

MAXOP 100 

/* 

max size of 

operand or operator 

• / 

#define 

HUMBER *0* 

/• 

signal that 

a number was found 

• / 


int getop(char [3); 
void ungetsfchar £3); 
void push(double); 
double pop(void); 

/• reverse Polish calculator; uses command line 
mainCint argc, char *argvM) 
i 

char a £ MAXOP 3; 
double op2; 

while <--argc > 0) < 

ungetsC" M ); /• push end of argument */ 

ungetsC•♦♦argv>; /• push an argument •/ 

switch (getop(s)) i 
case NUMBER: 

pushfatof(s)); 

break; 

case 

push(popC) ♦ pop(>); 
br eak; 

case 

push(popC) • p o p O ) ; 
break; 

case 

op2 - pop(); 
push(pop() - op2); 
break; 
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case '/ ': 

op2 ■ popC > ; 
if (op2 »« 0.0) 

pushtpopO / op2); 

else 

prinlf("error: zero divisor\n M ); 
break ; 
de fault: 

printfC*'error: unknown command Xs\n", a); 
argc - 1 ; 
break; 

> 

> 

printf("\tX.8g\n", pop(>); 
return 0 ; 


This solution is based on the reverse Polish calculator on page 76 K&R. 
It uses the routines push and pop (page 77 K&R). 

We use ungets to push an end of argument marker and an argument onto 
the input buffer. This way we can use getop unchanged, get op invokes 
get ch to read characters and gets the next operator or numeric operand. 

If an error should occur while reading in the arguments, argc is set to 1. 
The while loop in the main routine 

while (--argc > 0) 

becomes false and the program ends. 

The result for a valid expression is on top of the stack and we print this 
result when the argument list terminates. 
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Exercise 5-11: (page 118 K&R) 


Modify the programs entab and detab (written as exercises in Chapter 1) to 
accept a list of tab stops as arguments. Use the default tab settings if there are 
no arguments. 


* i nc1ude 

< a t d i o . h > 





#de fine 

MAXLINE 

1 00 

/• maximum 

line size 

♦/ 

#def ine 

TAB1NC 

8 

/• default 

tab increment size 

*/ 

#define 

YES 

1 




#define 

NO 

0 





void aettabCint argc, char »argv[3, char •tab); 

void entabtchar • t a b ) ; 

int tabpoaCint poa, char «tab); 

/• replace atringa of blanka with taba ♦/ 

mainCint argc, char »argvt1) 

< 

char tab[MA X L I NE♦1]; 

aettab(argc, argv, tab); /• initialize tab atopa */ 

entab(tab); /• replace blanka w/ tab •/ 

return 0; 

> 


/• entab: replace atringa of blanka with taba and blanka •/ 
void entabtchar «tab) 

< 

int c, poa; 

int nb ■ 0; /* # of blanka necessary •/ 

intnt-0 ; /• # of tabs necessary ♦ / 

for (poa • 1; (c-getchar()) !■ EOF; poa**) 
if (c ••'')( 

if (tabpoaCpoa, tab) ■* MO) 

♦ *nb; /• increment # of blanka •/ 

elae < 

nb»0; /• reset # of blanka •/ 

♦*nt; /• one more tab •/ 

> 
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> else < 

for < ; nt > 0; nt--) 

putchar('\t'); /* output tab(a) 
if (c ** '\t') f* forget the blank(a) 

n b - 0; 

else /•outputblanlc(a) 

for ( ; nb > 0; nb--) 

put char( # ' ) ; 

putchar(c); 
if (c - - ' \ n ' ) 
p o a ■ 0; 

elae if (c ■■ ' \ t ' ) 

while CtabpoaCpoa, tab) !■ YES) 

♦♦poa; 


The source file a e 11 a b, c: 

^include <atdlib.h> 

'define MAX L1 HE 100 

'define TABINC 8 

'def i ne VES 1 

'define NO 0 

/• aettab: act tab atopa in array tab •/ 

void aettabCint argc, char • argvM, char «tab) 

< 

i n t i , p o a ; 

if (argc <* 1) /• default tab atopa */ 

for <i - 1; i <- MAXLINE; i*0 

if Ci X TAB INC -• 0 ) 
tab !l ) - YES; 

elae 

tabt i 1 - NO; 

elae < /• user provided tab atopa •/ 

for (i - 1; i <» MAXLINE; l♦♦) 

tablil • NO; /* turn off all tab atopa •/ 

while (r-argc > 0) </• walk through argument list */ 
poa * atoiC**«argv>; 
if (poa >04* poa <• MAXLINE) 
tab(poa 1 • YES ; 


/* maximum line aize •/ 

/• default tab increment size */ 
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The source file tabpos . c : 

'define MAXLINE 100 /• maximum line size •/ 

'define YES 1 

/• tabpos: determine if pos is at a tab stop •/ 

int tobposCint pos, char *tab) 

< 

if (pos > MAXLINE) 
return YES; 

else 

return tab!pos 3; 

> 


The framework for this solution is the entab program in Kernighan & 
Plauger, Software Tools (Addison-Wesley, 1976). 

Each element in the array tab corresponds to a position within the line, 
i.e., tab [ 1 ] corresponds to the first position within the line (pos equals 1). If 
the position is a tab stop, then the corresponding element tab [ i 3 equals YES; 
otherwise tablil equals NO. 

The tab stops are initialized in the routine set tab. If there are no ar¬ 
guments (argc equals 1), then we put a tab stop every TAB INC position. 

If there are arguments, then we set the tab stops as the user specifies them. 

The routine entab is similar to Exercise 1-21. 

The routine tabpos determines if the position is a tab stop. It returns YES 
if pos exceeds MAXLINE, otherwise it returns tab [pos 1. 


#inc1ude 

<atdio.h> 



'define 

MAXLINE 

1 00 

/• maximum line size •/ 

'define 

TAB 1NC 

8 

/• default tab increment size •/ 

'define 

YES 

1 


'define 

NO 

0 



void settabCint argc, char »argvl3, char »tab); 

void detabCchar •tab); 

int tabpos(int pos, char *tab); 

/• replace tabs with blanks •/ 

main(int argc, char »argv[3) 

{ 

char tab[MAXLINE+1 ] ; 

settabCargc, argv, tab); /* initialize tab stops */ 

detab(tab); /• replace tab w/ blanks •/ 

return 0 ; 

> 
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detab: replace tab with blanks • l 

void detab(char «tab) 

{ 

int c, pos ■ 1; 

while CCc ■ getcharC)) •- EOF) 

if (c ■* '\t') { /• tab character */ 

do 

pu t char C ' '); 

while (tabpo5(poa*+, tab) !■ YES); 

> else if Cc ■■ '\n') < /« newline character */ 

putcharCc); 
p o 5 « 1 ; 

> else ( /« all other characters •/ 

putcharCc); 

♦♦pos ; 


The framework for this solution is the detab program in Kernighan & 
Plauger, Software Tools (Addison-Wesley, 1976). 

The routines tabpos and set tab are the same as in the first part of this 
exercise. 

The routine de tab is similar to Exercise 1-20. 
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Exercise 5-12: (page 118 K&R) 

Extend cn tab and detab to accept the shorthand 
entab -m ♦n 

to mean tab stops every n columns, starting at column m. Choose convenient 
(for the user) default behavior 

'include <stdio.h> 

■•’define MAXLINE 100 

•define TABINC 8 

•■define YES 1 

•define ND 0 

void eaettabfint argc, char • argvM, char «tab); 
void entabfchar «tab); 

/• replace strings of blanks with tabs •/ 

mainCint argc, char *argv(]) 

< 

char tab[MAXLINE*1 I ; 

esettabfargc, argv, tab); 
entab(tab); 
return 0; 

> 

The source file esettab.c: 

•■include <stdlib.h> 

•■define MAXLINE 100 

•■define TABINC 8 

#define YES 1 

•■define NO 0 

/• esettab: set tab stops in array tab */ 

void esettabCint argc, char •argvM, char »tab) 

< 

i nt i , i nc , pos ; 


/* maximum line size */ 

/• default tab increment size */ 


/• initialize tab stops •/ 
/• replace blanks w/ tab •/ 


/• maximum line size •/ 

/• default tab increment size •/ 
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if (argc <■ 1) /• default tab stops 

for Ci « 1 ; i <- MAXLINE ; i ♦ ♦) 
if (l X TABINC -- 0) 
tabCil - YES; 

else 

tabC i1 - NO; 

else if (argc ■* 3 44 /• user provided range 

•argvtll -- 44 »argvt2] «* *♦*) { 

pos ■ atoi(*(«*+argv)(1]); 
inc * atol(4(•♦>argv)[1]); 
for Ci - 1 ; i <- MAXLINE ; !♦♦) 
if (i !■ pos) 

tabti] - NO; 
else < 

tabti] - YES; 
pos ♦* inc; 

> 

> else < /* user provided tab stops 

for Ci - 1; i <• MAXLINE; l♦♦) 

tabt i] ■ NO; /• turn off all tab stops 
while (--argc > 0) </• walk through argument list 
pos * a toi(•♦♦argv); 
if (pos > 0 44 pos <• MAXLINE) 
tabtpos] * YES; 


The framework for this solution is the en tab program in Kernighan & PI auger. 
Software Tools (Addison-Wesley, 1976). 

This solution is similar to the en tab program in Exercise 5-11. The only 
modification is that the routine set tab was replaced by eaettab (extended 
aet tab). 

eaet tab accepts the shorthand notation -m +n. The statements 

pos ■ atoi(4(»**argv)C1J); 
ire * atoi(4(«**argv)C1]); 


set pos equal to the first tab stop and set inc equal to the increment size. 
Therefore, the tab stops begin at pos and occur at every me position. 
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^include 

< s t d i o . h > 



^define 

MAXlINE 

1 00 

/* maximum line size 

^define 

TAB 1N C 

8 

/* default tab increment size 

*def l ne 

YES 

1 


#def me 

NO 

0 



void esettab(int argc, char *argvt1, char *tab); 
void detab(cher *tab); 

/• replace tabs with blanks */ 

mainlint argc, char *argvC]) 

< 

char tabIMAXLINE*1); 

esettabCargc, argv, tab); /• initialize tab stops */ 

detab(tab); /* replace tab w/ blanks */ 

return 0 ; 

> 


The framework for this solution is the detab program in Kernighan & 
Plauger. Software Tools (Addison-Wesley, 1976). 

This solution is similar to the detab program in Exercise 5-11 and uses 
the routine esettab from the first part of this exercise 
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Exercise 5-13: (page 118 K&R) 

Write the program tail, which prints the last n lines of its input. By default, 
n is 10, let us say, but it can be changed by an optional argument, so that 

ta i 1 -n 

prints the last n lines. The program should behave rationally no matter how 
unreasonable the input or the value of n. Write the program so that it makes 
the best use of available storage; lines should be stored as in the sorting program 
of Section 5.6, not in a two-dimensional array of fixed size. 

#inc1ude < s t d i o.h> 

^include <stdlib.h> 

^include <string.h> 

'define DEFLINES 10 /• default • of lines to print */ 

#define LINES 100 /• max # of lines to print */ 

^define MAXLEN 100 /• max length of an input line •/ 

void errortchar *); 

int getline(char •, int); 

/• print last n lines of the input •/ 

mainCint arge, char *argvt ] ) 

< 


char 

# p*» 




char 

•buf ; 

/ • 

pointer to large buffer 

•/ 

char 

•bufend ; 

/* 

end of the buffer 

♦/ 

char 

linelMAXLEN]; 

/• 

current input line 

*/ 

char 

•lineptrfLINES1; 

/• 

pointers to lines read 

•/ 

int first, i, last, len, 

n, 

n1ine s; 


if (a 

rgc ■* 1 ) 

/• 

no argument present 

• / 


n - DEFLINES; 

/• 

use default * of lines 

• / 

else 

if (arge ■■ 2 &A (• 

♦♦argv)(0] -• '-') 



n ■ atoiCargvI01♦1) 

; 



else 

error!"usage: tail 

t- 

n 1" ); 


if ( n 

< 1 U n > LINES) 

/• 

unreasonable value for n 7 

• / 


n - LINES; 

for (i - 0; l < LINES; !♦♦) 

1 inep tr[ i1 ■ NULL; 

if <<p - buf - mallocCLINES • MAXLEN)) ■» NULL) 
errorC'tail: cannot allocate buf"); 
bufend » buf ♦ LINES • MAXLEN; 

last - 0; /• index of last line read 

nlines * 0; /• number of lines read 


•/ 

•/ 
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while ((len * ge11 i neC1 1 ne, MAXLEN)) > 0) ( 
if (p * len ♦ 1 >* bufend) 

p-buf; /• buffer wrap around */ 

lineptrtlastl - p; 
atrcpy(1ineptrl 3 ast3, line); 
if (♦♦last > - LIMES) 

last ■ 0; /* ptrs to buffer wrap around */ 

p ♦■ len ♦ 1 ; 
n 1 l nes♦ + ; 

> 

if Cn > nlines) /• req. lines more than rec . 7 •/ 

n * nlines ; 

first = last - n; 

if (first < 0) /* it did wrap around the list*/ 

first LINES; 

for (i - first; n-- > 0; l = Ci ♦ 1) X LINES) 
printfCJSs" , LineptrliJ); 

r e t u r n 0 ; 

> 

/• error: print error message and exit •/ 

void error(char *s) 

( 

printf("XsVn" , s); 

exit(1); 

> 


The program prints the last n lines of its input. When arg c is 1, n has 
the default value DEFL 1NES. When argc is 2, the value for n is obtained from 
the command line. It is an error for argc to be greater than 2. 

The loop 

while ((len ■ get1ine(1ine, MAXLEN)) > 0) 

gets a line at a time until get 1 1 ne (Exercise 116) finds the end of its input. 
For each line read the program uses space in the allocated buffer. 

The statement 

if (p * len * 1 >- bufend) 

p • buf ; 

resets the pointer p to the beginning of the buffer when there is not enough 
room left to copy the current line. 

The elements of the array 1 ineptr point to characters; the last LINES 
lines read so far. The index for this array is the variable last. 

When last becomes equal to 11N E S i t wraps around and the elements of 
1 ineptr and their buffers are then reused. 
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The total number of lines is nl inci. The program prints the last n lines, 
so the number of lines requested cannot exceed the number of lines received: 

if Cn > nlinea) 
n ■ rimes; 


If the total number of lines exceeds LINES, the index last wraps around 
and the starting index has to be adjusted: 

if (first < 0) 

first LINES; 

The program then prints the last n lines: 

for (1 - first; n-- >0; i - (l * 1) X LINES) 
printf("Xs M , lineptrlil); 

Since i starts with the value of first and goes for n elements, it may 
wrap around. The modulus (remainder) operator maintains i between the 
values 0 and L I NES - 1: 

i * <1 * 1) X LINES 

The standard library function exit (page 163 K&R) terminates the program 
when an error occurs, ex i t returns 1 indicating an error condition. 
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Exercise 5-14: (page 121 K&R) 

Modify the sort program to handle a -r flag, which indicates sorting in reverse 
(decreasing) order. Be sure that -r works with -n. 


•include <stdio.h> 
•include <atring.h> 


•define 

NUMERIC 

1 

/• 

numeric 

aort 

• / 

•define 

DECR 

2 

/• 

aort in 

decreaaing order 

•/ 

• de fine 

LINES 

100 

/• 

max • of 

linea to be aorted 

•/ 

int numcmpCchar •, 

char 

•>; 





int readJines<char •lineptrll, int maxlines); 
void qaortCchar «vl], int left, int right, 
int (•compHvoid •» void •)); 
void write1ireaCchar •lineptrt], int nlinea, int deer); 

static char option ■ 0; 

/• aort input linea •/ 
mainCint arge, char •argvt1) 

< 

char •1ineptr[LINES1; /• pointera to text lines •/ 

int nlinea; /• number of input linea read •/ 

int c, rc » 0; 

while (--arge > 0 tt (•♦♦argvMOl 
while <c » •♦♦argvtOl) 
awitch < c) < 

case 'n' : /• numeric aort •/ 

option }■ HUMERIC; 
break; 

case 'r*: /• aort in decreasing order •/ 

option I■ DECR; 
brea k; 
defau 11 : 

pr i ntf(“sort : illegal option Xc\n", c); 
arge • 1 ; 
rc ■ -1 ; 

break; 

y 
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i f (argc) 

printfC"Usage: sort nr \n“); 

else 

if ((nlines * read 1 inesC1 1 neptr , LINES)) > 0) { 
if (option i NUMERIC) 

qsort((void »*) lineptr, 0, nlines-1, 

(int (*) (void *, void •)) nu/rcmp); 

else 

qsort((void ••) lineptr, 0, nlines-1, 

(int (*) (void *, void •>) strcmp); 
writelines(lineptr, nlines, option A DECR); 

> else < 

printf(" i nput too big to sort \n"); 
r c =* -1 ; 

} 

return rc; 

> 

/• writelines: write 
void write 1 ines(char 

i 

int i *, 

if (deer) /* print in decreasing order */ 

for (i ■ nlines-1*, i > = Q *, i--) 

printf("Xs\n", lineptrCil); 

else /• print in increasing order */ 

for (i ■ 0; i < nlines; i♦♦) 

printf("Xs\n M , lineptrlil); 

> 


outputlines •/ 

♦ lineptrN, int nlines, int deer) 


The bits of the static character variable option determine which options 
are requested. 

Oth bit = 0 character string sort 
= 1 numeric sort ( - n) 

1st bit = 0 sort in increasing order 

= 1 sort in decreasing order ( - r) 

If there is an option present, then the bitwise inclusive OR operator (}) 
sets the appropriate bit in the variable option. The statement 

option I- DECR; 

is equivalent to 

option ■ option 1 2; 


Pointers and Arrays Chap. 5 


129 


The decimal number 2 is equivalent to 00000010 in binary. Since 
1 OR anything = 1 

the above C statement sets the 1st bit in the character variable option to 1. 
(The bits are numbered 0, 1, 2, . . . from right to left.) 

To determine if an option isset we use the bitwise AND (a) operator. 
The expression 

option 4 DECK 

is true i f the - r option i s requested and false i f the - r option i s not requested. 

writelmes was modified to accept a third argument, deer. The variable 
deer is the result of the expression option 4 DECS, which determines whether 
the sorted list is to be printed in decreasing or increasing order. 

The routines atremp, numemp, swap, qaort, and readlinea are those 
used in the sort program (page 119 K&R). 
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Exercise 5-15: (page 121 K&R) 

Add the option - f to fold upperand lower case together, so that case distinctions 
are not made during sorting; for example, a and A compare equal. 


#inc1ude <atdio.h> 
#include <atring.h> 
^include <ctype.h> 


#def i 

ne 

NUMERIC 

1 

/• 

numeric aort 



• / 

#def i 

ne 

DECR 

2 

/• 

sort 

in decreasing order 

•/ 

#def i 

ne 

FOLD 

4 

/• 

fold 

upper and 

1 ower 

cases 

• / 

#def i 

ne 

LINES 

1 00 

/ • 

max * 

of linea 

to be 

sorted 

• / 


int charcmpCchar •, char • ); 
int numcmpCchar • , char • ); 

int readlines(char •lineptrtl, int maxlines); 
void qsortCchar »v[], int left, int right, 
int (*comp)(void •, void • ) ); 
void writelines(char MineptrM, int nlinea, int order); 

atatic char option ■ 0; 

/• aort input linea •/ 

mainCint argc , char «argv[ 1) 

< 

char • 1 1 neptrtLINES ] ; /• pointers to text linea •/ 

int nlinea; /• number of input linea read •/ 

int c, re ■ 0; 


while C--argc > 0 *1 (•♦♦argv)C0] -* 

while (c « •♦♦argvCO]) 
awitch (c ) { 

case 'f /• fold upper and lower cases 

option !■ FOLD; 
break; 

case # n # : /• numeric aort 


option l» NUMERIC; 
break ; 

case *r* : /• aort in decreasing order 

option I* DECR; 
break; 
default: 

printfCsort: illegal option Xc\n", c); 
argc ■ 1; 
rc » -1 ; 
break ; 


• / 


• / 


*/ 
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if (argc) 

printfC"Usage: sort *fnr \n"); 

else { 

if ((nlines ■ read1 inesC1ineptr, LINES)) > 0) < 
if (option 4 NUMERIC) 

qsortCCvoid ••) lineptr, 0, nlines-1, 

(int (•Xvoid *, void •)) numcmp) ; 
else if (option 4 FOLD) 

qsort((void ••) lineptr, 0, nlines-1, 

(int (OCvoid «, void • )) charcmp); 

else 

qsort((void ••) lineptr, 0, nlines-1, 

(int (OCvoid «, void • )) strcmp); 
wr ite1ines( 1 ineptr , nlines, option 4 DECR); 

1 else ( 

printf("lnput too big to sort \n"); 
re ■ -1 ; 


/• charcmp: return <0 if s<t , 0 if s--t, >0 if s>t •/ 

int charcmp(char *3, char «t) 

( 

for ( ; tolower(*s) ■■ tolower(«t); s 4 *, t**) 
if (♦ s -- '\0') 
r e t u r n 0 ; 

return tolower(«s) - t olower ( • t ) *, 

> 

The framework for this solution is Exercise 5-14. 

2nd bit = 0 no folding 

= 1 folding < - f) 

If the user requests the fold option, the second bit in opt ion must be set equal 
to 1: 

option I• FOLD; 

FOLD (decimal 4) is 00000100 in binary (the bits are numbered 0, 1, 2, 3, . . . 
from right to left). 

The function charcmp compares strings like s tremp (page 106 K&R). It 
converts characters to lower case, to support the fold option, and compares 
them. 

The routines numcmp, awap.qaort, readlinea, and writelinea are 
those used in Exercise 5-14. 
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Exercise 5-16: (page 121 K&R) 

Add the -d (“directory order”) option, which makes comparisons only on let¬ 
ters, numbers, and blanks. Make sure it works in conjunction with -f. 

^include <atdio.h> 

^include <ctype.h> 

^define NUMERIC 1 /• numeric sort •/ 

^define DECR 2 /* sort in decreasing order •/ 

^define FOLD 4 /• fold upper and lower cases •/ 

^define DIR 8 /• directory order •/ 

^define LINES 100 /• max * of lines to be sorted •/ 

int charcmpCchar •, char • ); 
int numcmp(char •, char • ); 

int read1ines(char *lineptr[], int naxlines); 
void qsort(char »vll, int left, int right, 
int (»comp) (void •, void •)); 
void writelinestchar »lineptr[], int nlines, int order); 

static char option ■ 0; 

/• sort input lines 
main(int argc , char »argvU) 

< 

char •1 inept rIL1NES1 ; 
int nlines; 
int c, re • 0; 

while (--argc >* 0 u (•♦♦argv)[01 
while (c - •♦♦argvtOl) 
switch (c) < 


case 

'd': 

/* directory order 

*/ 


option 
break ; 

1- DIR; 


case 

'f 

/• fold upper and lower cases 

* / 


option 
break; 

1- FOLD; 


case. 

# n 

/• numeric sort 

*/ 


opt ion 
break; 

I- NUMERIC; 


case 

* r *: 

/* sort in decreasing order 

*/ 


option 
break ; 

1- DECR; 



•/ 


/• pointers to text lines */ 

/• number of input lines read »/ 
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> 


default: 

printf("sort: illegal option Xc\n M , c ) ; 
argc * 1 ; 
rc - -1 ; 
break ; 

> 

if (argc) 

pr i nt f ( "Uaag e : sort -dfnr \n ,# ); 
else < 

if ((nlines * readl 1 nes(1ineptr , LINES)) > 0) < 
if (option 4 NUMERIC) 

qsort((void •*) lineptr, 0, nlines-1, 

(int (*)(void •, void •)) numcmp); 

else 

qsort((void •*) lineptr, 0, nlines-1, 

(int (*)(void •, void •)) charcmp); 
writelines(lineptr, nlines, option A DECR); 

> else < 

p r i n t f ( “ i nput too big to sort \n'*); 
rc - -1 ; 

} 

> 

return rc; 


/« charcmp: return <0 if s<t, 0 if s mm t, >0 if s>t •/ 
int charcmp(char »s, char »t) 

< 

char a, b; 

int fold * (option A FOLD) ? 1 : 0 ; 

int dir * (option A DIR) ? 1 : 0; 


do ( 

if (dir) ( 



wh ile 

(■i salnum(* s ) 

AA *s !• ' 

' AA *s 

i « ' \ Q ' ) 


s 

+ ♦ • 





wh ile 

t 

(!isa1num(•t) 

AA *t •• ' 

' AA »t 

> « ' \ C ' ) 

> 

a * 

fold ? 

t o1 owe r(•5 ) 

• a; 



S ♦ ♦ : 






b - 

fold ? 

t o 1 owe r ( * t ) : 

•t; 




t* ♦ ; 

if (a * * b AA a * * # \ 0 ' ) 
return 0; 

> while (a * * b); 
return a - b; 
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The framework for this solution is Exercises 5-14 and 5-15. 

3rd bit = 0 no directory order 

= 1 directory order (-d) 

If the user requests the directory option, the third bit in opt i on is set 

to 1. 

option 1■ DIR; 

DI R (decimal 8) is 00001000 in binary notation (the bits are numbered 0, 
1, 2, 3, . . . from right to left). 

The chorcmp routine (Exercise 5-15) was modified to handle both the fold 
option and the directory option. 

If the user requests the directory option then the whi le loop 

while C * i sa lnum< • s) it *s !■ ' ' it »s !■ '\Q') 

3* ♦ ; 


examines each character in the string s and skips over those characters that are 
not letters, numbers, and blanks The macro i sa 1 nun is defined in retype.h>. 
isalnum tests for alphabetic characters (a-z , fi-Z) and digits (0-9). If •= is 
an alphabetic character or a digit then isalnum(*s) is nonzero; otherwise 
i sa I numC • s ) is zero. 

The next while loop 

while ( ‘ isaInumt•t) it *t ' ' it *t 1* '\0') 

t * ♦; 

examines each character in the string t and skips over those characters that are 
not letters, numbers, and blanks. 

When a letter, number, or blank is found in s and a letter, number, or 
blank is found in t, the routine charcmp compares the two characters. 

We could have taken another approach and created three functions instead 
of charcmp: fol demp , di remp , and f olddi remp. foldcmp would fold and 
compare characters as charcmp in Exercise 5-15. diremp would compare 
characters for directory order, and f o 1 dd ir emp would fold and compare char¬ 
acters for directory order. Each individual function would be faster than the 
current charcmp. We chose to complicate charcmp instead of creating more 
functions. 

The routines numemp, swap, qsor t, readlines, and wntelines are 
those used in Exercise 5-14. 
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Exercise 5-17: (page 121 K&R) 

Add a field-handling capability, so sorting may be done on fields within lines, 
each field sorted according to an independent set of options. (The index for 
this book was sorted with -df for the index category and -n for the page 
numbers.) 


• inc1ude 

<s t d i o.h> 






#inc1ude 

<ctyps.h> 






#def i ne 

NUMERIC 

1 

/• 

numeric sort 


• / 

#de f i ne 

DECR 

2 

/• 

sort in decreasing order 

•/ 

#de fine 

FOLD 

4 

/• 

fold upper and lower 

cases 

* / 

#de fine 

DIR 

8 

/• 

directory order 


• / 

#define 

L I NES 

1 00 

/* 

max # of lines to be 

sorted 

• / 

int charcmp(char •, 

char 

•): 





void error(char •); 
lrt numcmpCchar •, char •); 
void readargaCint argc , char *argv[]); 
mt readlines(char •lineptr!], int maxlines); 
void qsortCchar »v[3, int left, int right, 
int (•compMvoid • , void • )); 
void wr 1 te1 i nes(char •lineptr!), int nlines, int order); 


char option ■ 0; 

mtpoal "0; /• field beginning with posl • / 

int pos2 ■ 0; /• ending just before pos2 */ 

/• sort input lines */ 

mainCint argc, char • argvU) 

< 

char • 1ineptrILINES ) ; /• pointers to text lines •/ 

int nlines; /• number of input lines read •/ 

int re » 0 ; 


readargs(argc, argv); 

if ((nlines ■ read 1 1 nes( 1 ineptr , LINES)) > 0) < 
if (option l NUMERIC) 

qsort((void ••) lineptr, 0, nlines-1, 

(int (O(void •, void •)) numemp); 

else 

qsort((void ••) lineptr, 0, nlines-1, 

(int (•)(void •, void *)) charcmp); 
writelines(lineptr, nlines, option i DECR); 
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> else < 

printf("input too big to ^prt \n“): 
re * -1 ; 

> 

return r c; 

> 


/• readargs: read program arguments ♦/ 

void readargsCint arge , char »argvl]) 

< 

i n t c ; 

int atoiCchar •); 


> 


while (--arge > 0 U (c • C •♦ *argv )( 0 1) ■■ I! c ** '♦') { 

if Cc ■■ * -' 44 • isdigitC»(argv[ 0]*1 ) )) 
while Cc ■ •♦♦argvIOl) 
switch (c) < 


case 

'd ': 
option 
break; 

/• directory order 

1 - DIR; 

♦ / 

case 

•f # s 
option 
break ; 

/* fold upper and lower 

1- FOLD; 

*/ 

case 

* n *: 
option 
break; 

/ • nunter l c sort 

1- NUMERIC; 

♦ / 

case 

* r *: 
option 

break; 

/♦ sort in deer, order 

1- DEC R; 

• / 


default: 

printfCsort: illegal option Xc\n", c); 
errorC'Usage: sort -dfnr [♦posll t-pos2] 
break; 

} 


else if (c ■* * - *) 

pos2 ■ atoiCargvCOl+l); 
else if (Cposl - atoiCargv[0]♦1)) < 0) 

errorC'Usage: sort -dfnr [♦post] [-p o s 2]"); 

> 

if (arge II post > pos2) 

errprCUsege : sort -dfnr [♦posll I-pos21"); 


The source file numemp. c: 


* inc1ude 
• inc1ude 
#in c1ude 


<ma t h .h> 

< c type.h > 
<string.h> 
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'define MAXSTR 100 

void 3ubatr(char »a, char «t, int maxatr); 

/• namcmp: compare al and a2 rumericaiiy */ 

int numcmp(char *a1, char »s2) 

< 

double vl , v2 ; 
char a t r[MAXSTR]; 

aub a t r(a 1 , atr, MAXSTR); 
vl ■ at of(a t r); 
aubatrCa2, atr, MAXSTR); 
v2 • atof(atr); 
if Cvl < v2) 



return -■ 

1 ; 



elae 

if (vl > 

v2 ) 




return 1 




elae 






return 0; 




> 





'def ine 

FOLD 

4 

/• fold upper and lower caaea 

•/ 

'define 

DIR 

8 

/• directory order 

•/ 


/* charcmp: return <0 if a<t, 0 if 3»*t, >0 if a>t 
int charcmpCchar *a, char *t) 

< 

char a, b; 

int i, j, endpoa; 

extern char option; 

extern int posl, pos2; 

int fold - (option 4 FOLD) n 1 : 0; 

int dir - (option 4 DIR) ? 1 : 0; 


i » j ■ peal ; 
if (poa2 > 0) 

endpoa ■ poa2; 

elae if ((endpoa - strlen(a)) > atrlen(t)) 
endpoa - atrlen(t); 

do < 

if (dir) < 

while (i < endpoa !>!> ! i aa 1 num( s C l) ) 44 
at i ) !- ' ' 44 a I i] •■ '\0') 

i * ♦ l 

while (j < endpoa 44 ! i aa 1 num( 11 j ) ) 44 

tCj 1 •“ ' ' 44 ttj1 !« 'VO'} 


• / 


> 


J 
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} 


if (i < endpoa 44 j < endpoa) < 
a ■ fold ? tolowerCaCiJ) : 
i ♦♦; 

b » fold ** to lower(t[j1) : 

j ”5 

if (a • - b 44 a ■ ■ ' \ 0 ' ) 
return 0; 

> 


) while (a *• b U 1 < endpoa AA j < 
return a - b; 


aCil; 

Uji; 


endpoa); 


The source file subst r . c: 
linclude <atring.h> 
void error(char •); 

/• aubatr; get a substring of 5 and put in str */ 

void aubatrCchar «a, char »str) 

< 

i n t i , j , 1 e n; 

extern int poal, pos2; 

len * strlen(s); 
if Cpoa2 > 0 AA len > pos2) 
len - pos2; 

else if (pos2 > 0 AA len < pos2) 

errorC'subatr: string too short'*); 
for (j - 0, i - poal; i < len; i♦♦« 
atrtj] » a(i1; 
atrtj) • *\0 # ; 

> 


The framework for this solution is Exercises 5-14, 5-15, and 5-16. 

The syntax of the sort command is 

sort -dfnr [♦post] [-pos2] 

If you want to sort on fields within lines you can specify poal and pos2; 
the sort begins at poa 1 and ends just before poa2. Otherwise poal and poas 
are equal to 0 and the entire line is the sort key. 

The routine readargs reads the command line arguments. The while 
loop in r e a da r g a is true while there are arguments and the argument is preceded 
by a minus sign. 
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The first if statement 

if (c ■■ '-‘ Si !ladlgit(«(argvl0]*1))) 

is true if the argument is a minus sign followed by a non-digit. The switch 
statement processes these arguments the same way as in Exercises 5-14, 5-15, 
and 5-16. 

The next else- if statement 
else if (t -■ 

is true only if the argument specified is the optional -pos 2 . 

The final el se- if statement processes *pos i and makes sure it is greater 
than zero. 

charcmp is a modified version of the function in the previous exercises. 
This version handles fields. 

numcmp compares numbers like the previous version but requires a new 
routine substr since at of does not take origin and length as arguments. It 
is safer to invent a new routine subatr rather than tochange the interface of 
a highly used function like atof. 

The routines swap, qsor t, readlmea, and wr 1 1 el inea are those used 
in Exercise 5-14. error is the function from Exercise 5-13. 
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Exercise 5-18: (page 126 K&R) 

Make del recover from input errors. 

^include <stdio.h> 

'include <string.h> 

'include <ctype.h> 

enum i NAME, PARENS, BRACKETS >; 
enum { NO, YES >; 

void dcl(void); 
void dirdcl(void); 
void errmsg(char •); 
int gettoken(void); 


extern 

int 

tokentype; 

/• 

type 

of last token 

•/ 

extern 

char 

token!J; 

/• 

last 

token 

string 

•/ 

extern 

char 

name! ] ; 

/• 

iden tifier 

name 

•/ 

extern 

char 

out!]; 






extern 

int 

prevtoken; 







/• del: parse a declarator •/ 

void dcl(void) 

< 

int ns; 

for Cns - 0; gettoken() - - '; ) /• count *' s •/ 

ns ♦ ♦; 
dirdclC); 
while (ns-- > 0) 

strcatCout, " pointer to"); 

> 

/• dirdcl: parse a direct declaration •/ 

void dirdcl(void) 

< 

int type; 

if (tokentype -■ '(') { /• ( del ) •/ 

dc 1 ( ) ; 

if (tokentype ■» ')') 

errmsgCerror; missing )\n"); 

> else if (tokentype -- NAME) /• variable name •/ 

strcpy(name, token); 
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> 


e i se 


errmsgCerror: expected name or (dcl)\n M ); 
while ((type ■ gettokenC)) ■■ PARENS M type ** 
if (type -- PARENS) 

atrcatCout, " function returning"); 
else < 


> 


atrcatCout , 
strcatCout, 
atrcatCout, 


" array"); 
token); 

" of"); 


BRACKETS) 


/• errmag: print error meaaage and indicate avail. token •/ 
void errmsgCchar *mag) 

{ 

printf("%a", mag); 
prevtoken * YES; 

> 


The source file gettoken.c: 

^include <ctype.h> 

^include <atring.h> 

enum < NAME, PARENS, BRACKETS >; 
enum < NO, YES >; 


extern int tokentype; /• type of laat token •/ 

extern char token!!; /• laat token atring •/ 

int prevtoken ■ NO; /• there ia no previous token •/ 

/• gettoken: return next token •/ 

int gettoken<void) 

< 

int c, getchCvoid) ; 
void ungetchCint ) ; 
char »p • token; 


if (prevtoken ■■ YES) C 
prevtoken ■ NO ; 
return tokentype; 

> 

while (<c ■ getchC)) •* * * II c ■■ # \t # ) 
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if (c -- '(') ( 

if CCc - getchO) -• ')') < 
strcpyCtoken, "()"); 
return tokentype ■ PARENS; 

> else < 

ungetch(c); 

return tokentype • '('; 

> 

> else if Cc -- '[') < 

for ( • p ♦ ♦ ■ c; < « p ♦ ♦ • getchC)) ! • ']'{ ) 

•p - ' \0 '; 

return tokentype - BRACKETS; 

> else if (isalpha(c)) < 

for C«p** - c; isalnum(c ■ getchC)); ) 

•p ♦ ♦ ■ c ; 

• p - ' \ 0 '; 

ungetchCc ) ; 

return tokentype - NAME; 

> else 

return tokentype * c; 


We modified dir del a little because this function expects one of two 
tokens: a •)' after a call to dc 1 or a name. If it is neither of these tokens we 
invoke errmsg instead ofprintf. errmsg displays the error message and sets 
prevtoken to indicate to gettoken that a token is already available, get- 
token has a new if statement at the beginning: 

if (prevtoken •• YES) { 
prevtoken ■ NO; 
return tokentype; 

> 


That is, if there is a token available do not get a new one yet. 

Our modified version is not bullet-proof, but it has an improved error 
handling capability. 
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Exercise 5-19: (page 126 K&R) 

Modify unde 1 so that it does not add redundant parentheses to declarations. 

'include <stdio.h> 

'include <string.h> 

'include <ctype.h> 

'define MAXTOKEN 100 

enum < NAME, PARENS, BRACKETS >; 

void dclCvoid); 
void dirdcl(vold); 
int gettoken(void); 
int nexttoken(void); 

int tokentype; /• type of last token •/ 

char token!MAXT0KEN1; /• last token string •/ 

char out[1000]; 

/• undcl: convert word description to declaration •/ 

malnO 

< 

int type; 

char temp[MAXTOKEN1; 

while Cgettokent) !■ EOF) { 
strepyfout, token); 

while ((type ■ gettokenO) '\n') 

if (type -- PARENS I! type -- BRACKETS) 
strcat(out, token); 
else if (type ■■ '•') < 

if ((type ■ nexttokent)) »* PARENS II 
type - - BRACKETS) 
sprintf(temp, M («Xs) M , out); 

else 

spr intf (temp, •'•Xs”, out); 
strcpy(out, temp); 

> else if (type ■■ NAME) ( 

spr i n t f ( temp , *'Xs Xs", token, out); 
strcpy(out, temp); 

> else 

printf("invalid input at Xs\n", token); 
printf("Xs\n", out); 

> 

return 0; 

> 
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enum < MO, YES >; 
int gettoken(void); 

/• nexttoken: get the next token and pash it back •/ 

int nexttoken(void) 

< 

int type; 

extern int prevtoken; 

type ■ gettokenC); 
prevtoken ■ YES; 
return type; 

> 


For the description “x is a pointer to char,” the input to unde 1 is 
x • char 

and unde 1 produces 
char (•x) 

The parentheses are redundant. I n fact, the parentheses are required only 
when the next token is either () or [ 3. 

For example, “daytab is a pointer to an array of [13] int,” the input for 
undcl is 

daytab • (13 3 int 
and undcl produces 
int (•daytab)C13) 

which is correct. On the other hand, “daytab is an array of [13] pointers to 
int,” the input is 

daytab 113 3 * int 

and undcl produces 

int (•daytabM33) 

This time the parentheses are redundant. 
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We modified unde 1 to check if the next token is C J or C1. If it is ( ) or 
[ ] the parentheses are necessary, otherwise the parentheses are redundant. 
We look ahead one token before we make the decision about adding parentheses. 

We created a simple function called nexttoken that invokes gettoken, 
records the fact that there is a token available, and returns the token type, 
get token is the function from Exercise 5-18 that checks if there is a token 
already available before it gets a new one from the input. 

The modified unde 1 does not produce redundant parentheses. For ex¬ 
ample, for the input 

x • char 

the modified undcl produces 

char «x 

For 

daytab • [13] in t 

is 

in t («daytab)[13] 

And for 

daytab [13] • int 

is 


1 n t »daytab[13] 



146 


The C Answer Book 


Exercise 5-20: (page 126 K&R) 

Expand dc 1 to handle declarations with function argument types, qualifiers like 
const, and so on. 

'include <stdio.h> 

'include <string.h> 

'include <ctype.h> 

enum < NAME, PARENS, BRACKETS >; 
enum < NO, YES >; 

void dcl(void); 
void dirdc 1C void); 
void errmsgCchar • ); 
int gettokenCvoid); 


extern 

int 

tokentype; 

/• 

type 

of last token 

*/ 

extern 

char 

t o k e n C 1 ; 

/• 

last 

token 

string 

*/ 

extern 

char 

name! ]; 

/• 

identifier 

name 

*/ 

extern 

char 

datatype(]; 

/• 

data 

type 

■ char, int, etc. 

*/ 

extern 

char 

ou t f 1 ; 






extern 

int 

prevtoken; 







/• del: parse a declarator */ 

void dcl(void) 

( 

int ns; 

for Cns ■ 0; gettokenC) * ■ ) /• count • # s * / 

n s ♦ ♦ ; 
dirdc 1 < ) ; 
while Cns-- > 0) 

strcatCout, " pointer to"); 

> 


/* dirdcl: perse a direct declaration •/ 

void dirdclCvoid) 

C 

int type; 

void parmdclCvoid); 

if Ctokentype 'C') < /• C del ) •/ 

dc 1 C ) ; 

if Ctokentype !• ')') 

errmsgCerror : missing)\n M ); 



Pointers and Arrays Chap. 5 


147 


> else if (tokentype ■■ NAME) i /* variable name */ 

i f (name 10 7 •• * \0 * ) 

strcpy(name, token); 

> else 

prevtoken ■ YES; 

while ((type - gettokenO) -• PARENS ii type -- BRACKETS II 

t ype -■ '(*) 

if (type •• PARENS) 

street(out, M function returning"); 
else if (type ■■ '(') < 

streat(out, " function expecting"); 
pa rmdc1(); 

strcat(out, " and returninq"); 

} else < 

strcat(out, " array"); 
strcat(out, token); 
slrcat(out, " of"); 


/• errmsg: print error message and indicate avail. token «/ 
void errmsg(char «msg) 

{ 

printfC'Xs", msg); 
prevtoken - YES; 

> 

The source file parmdcl ,c: 

^include <stdio.h> 

# include <string.h> 

# include <stdlib.h> 

^include <ctype.h> 

'define MAXTOKEN 100 

enum < NAME, PARENS, BRACKETS >; 
enum ( NO, YES 1; 

void dcl(void); 

void errmsgCchar •); 

void delspec(void); 

int type spec(vold); 

int typequel(void); 

int conpare(cher •*, char •*); 
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int gettoken(void); 

extern int tokentype; /* type of last token • / 
extern char token! ); /• last token string •/ 
extern char name!]; /* identifier name •/ 
extern char datatype! 1; /♦ data type * char, int, etc. •/ 


extern char out!]; 
extern int prevtoken; 

/• parmdcl: parse a parameter declarator •/ 

void parmdc1Cvoid> 

< 

do { 

dc1 spec (); 

} while (tokentype ■■ ',*); 
if (tokentype !■ ')') 

errmsg(**miss ing ) in parameter dec 1 ara t i o n V n" ) ; 

> 


/• dclspec: declaration specification •/ 

void dc1spec(vcid) 

< 

char tempIMAXTOKEN] ; 

tempIOJ ■ '\0'; 
get token(); 
do { 

if (tokentype !» NAME) i 
prevtoken ■ YES; 
dc 1 ( ) ; 

1 else if (typespecO ■■ YES) ( 
strcat(temp, " "); 
strcat(temp, token); 
ge 11 o ken(); 

> else if (typequalO ■■ YES) { 

strcat(temp, “ "); 
strcat(temp, token); 
qettoken(); 

> else 

errmsgCunknown tyP e parameter list\n"); 

) while (tokentype !■ ll tokentype !- *)'); 

strcat(out, temp); 
if (tokentype -- ',') 
strcat(out , • , ,"); 

> 
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/• typespec : return YES if token is a type-specifier •/ 

int typespecCvoid) 

{ 

static char • types Cl ■ ( 

"char" , 

"int", 

"void" 

> ; 

char • p t ■ token; 

if (bsearchCfcpt, types, sizeofCtypes)/sizeof(char • ), 
sizeof(char •), compare) ■■ HULL) 
return NO ; 

else 

return YES; 

> 


/• typequal: return YES if token is a type-qua 1 i fier •/ 

int typequa1(void) 

< 

static char •typeqM • { 

"const", 

"vo lati le" 

> ; 

char «pt ■ token; 

if (bsearcht*pt, typeq , sizeofCtypeq)/sizeof(char •), 
sizeofCchar •), compare) •• NULL) 
return HD; 

e 1 se 

return YES; 

> 

/• compare: compare two strings for bsearch •/ 

int compare(char ••s, char »«t) 

< 

return strcmp(«s, »t); 

> 


We expanded the grammar on page 122 K&R to include parameter dec¬ 
larators: 

del: optional ' s direct-dci 

direct-dcl: name 

(del) 

direct-dcl (optional parm-dcl) 
direct-dcl (optional r/>e] 





ISO 


parm-dci. 

dcl-spec: 


parm-dcl, dcl-spec del 
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type-spec dcl-spec 
lype-qual dcl-spec 


This is an abbreviated version of the part of the grammar that describes 
declarations. We recognize a few type-specifiers described on page 211 K&R. 
For example. 


vo 1 d.•(»comp)Cint •, char • , int C»fnc)()) 


produces 


comp: pointer to function expecting pointer to int, pointer 

to char, pointer to function returning int and returning 
pointer to void 


We modified the function d irdc 1 and added the functions pa rmdc 1 and del spec. 

We use the lookahead facility we developed for Exercise 5-18. Sometimes 
we need to peek at a token before we decide what action to take. Sometimes 
we have a token available that we cannot use yet so we push it back; the next 
call to gettoken. elsewhere in the parser, retrieves that same token again and 
uses it. 

bsearch is a standard library routine that performs binary search. 


chapter e Structures 


Exercise 6-1: (page 136 K&R) 

Our version of g e t w o r d does not properly handle underscores, string constants, 
comments, or preprocessor control lines. Write a better version. 

/include <stdio.h> 

/include <ctype.h> 

/• getword: get next word or character from input •/ 

int getword(char »word, int lim) 

< 

int c, d, commentCvold), getchCvoid); 
void ungetchCint); 
char »w ■ word; 

while CisspaceCc • getchC))) 

if Cc ! ■ EOF) 

• w • ♦ » c ; 

if (isalphaCc) II c ■■ ' II c -• '/') < 

for C ; --lim > 0; w ♦ ♦ ) 

if C*isalnumC»w ■ getchC)) 44 »w !■ C 

ungetch(»w); 
break; 

} 

} else if Cc - - ' \ " II c - • '“') < 
for C ; --lim > 0; w ♦ ♦ ) 

if CC*w - getchC)) «■ 'W') 

« ♦ ♦ w - getchC); 
else if C»w c) < 
w* ♦ ; 
break; 

> else if C • w -- EOF) 
break; 
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} else if (c -- '/') 

if ((d ■ getch()) »■ '•') 
c ■ comment(); 

e 1 ae 

ungetch(d); 

♦w - ' \Q 
return c ; 


/* comment: skip over comment and return a character •/ 

int comment(void) 

< 

1 n t c ; 

while (Cc - getchO) »■ EOT) 
if (c •• '•') 

if < < c * getchO) ■» '/') 
brea k ; 

elae 

ungetch(c); 

return c ; 

> 


To handle underscores and preprocessor commands we changed 
1 f (I a 1pha ( c) ) 
to 


if (iselpha(c) II c ■■ II c •• '#') 

The alphanumeric characters and underscores that follow are treated as 
part of the word. 

String constants may appear within single or double quotes. Once we 
detect a quote we gather characters until we find the closing quote or EOF. 

We ignore comments and return the ending slash character. This part of 
the code is similar to Exercise 1-24. 
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Exercise 6-2: (page 143 K&R) 


Write a program that reads a C program and prints in alphabetical order each 
group of variable names that are identical in the first 6 characters, but different 
somewhere thereafter. Don’t count words within strings and comments. Make 
6 a parameter that can be set from the command line. 


•include 

< s t d i o . h > 




^include 

<c type.h> 




'include 

<string.h> 




* inc1ude 

< s t d 1 i b . h > 




struct tnod« ( 

/• 

the tree node: 

* / 

char 

• word ; 

/• 

points to the text 

* / 

int 

match; 

/• 

match found 

* / 

struct tnode • 1 e f t ; 

/• 

left child 

* / 

struct tnode *right; 

>; 

/• 

right child 

• / 

'define 

MAXWORD 100 




#de fine 

YES 1 




''define 

NO 0 





struct tnode »addtreex(struct tnode *, char *, int, int •); 
void treexprinttstruct tnode •); 
int getwordtchar *, int); 


/• print in alphabetic order each group of variable names */ 
/• identical in the first num characters (default 6) •/ 

mainCint argc, char *argvM) 

< 

s t rue t tnode ‘root ; 
char wordtMAXWORDl; 

int found - NO; /• YES if match was found • / 

int num; /• number of the first ident . chars*/ 


num - (--argc 44 (•♦♦argvMO) '-') ? a t o i ( a r g v[ 0 ] ♦ 1 ) 
root - NULL; 

while (getwo rd(word, MAXWORD) !- EOF) ( 

if CisalphaCwordtOJ) 44 strlen(word) >- num) 

root ■ addtreexCroot, word, num, 4found); 
found - NO; 

} 

treexprintCroot); 
return 0; 
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struct tnode •talloc(void); 

int compare(char •, struct tnode int, int •); 


/• addtreex: add a node with w, at or below p 
struct tnode »addtreex(struct tnode »p , char «w, 
int num, int »found) 


< 


int cond; 


if (p »* HULL) { /• a new word has arrived 

p ■ tallocO; /• make a new node 

p->word ■ strdup(w); 
p->match ■ •found; 
p->left - p->right ■ NULL; 

> else if (Ccond ■ compare(w, p, num, found)) < 0) 
p->left ■ addtreexCp->1eft , w, num, found); 
else if C cond > 0) 

p->right » addtreex(p->right, w, num, found); 

return p; 


• / 


• / 


/• compare: compare words and update p->match •/ 

int compareCchar »s, struct tnode »p, int num, int »found) 

< 

int i; 

char • t » p->word; 

for Ci ■ 0; • s — • t; i ♦ ♦, s ♦ ♦ , t^O 
if (»s -» # \0') 
return 0 ; 

if <i >» num) { /• identical in first num chars ? •/ 

•found « YES; 
p->match ■ YES; 

> 

return *a - »t; 

} 


/• treexprint: in-order print of tree p if p->match -- YES •/ 
void treexprint(struet tnode »p) 

< 

if (p !- NULL) < 

treexpript(p->left); 
if (p->match) 

printf("Xs\n M , p->word); 
treexprint(p->right); 

> 


> 
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The program prints variable names that are identical in the first rum char¬ 
acters. If the number of characters is not specified in the command line then 
it is set to 6: 

num =* (--arge 44 (••♦argvMOf *■ ? a t o 1 1 a r g v t 0 I + 1 ) : G ; 

The variable found is a boolean, found equals YES if the word is identical in 
num characters to a word in the tree and equals NO otherwise 

The program places a word in the tree if its first character is alphabetic 
and its length is greater than or equal to num. getword is the function from 
Exercise 6-1. The routine addtreex. which is a modification of addt r ee (page 
141 K&R), installs a word in the tree. 

The routine compare compares the word being placed in the tree to a 
word already in the tree. If there is a match in the first num characters, then 
• found and the match member (p->match) corresponding to the word in the 
tree are set equal to YES. 

if (i >* num) t 

• found = YES ; 
p->match * YES; 

} 

The routine treexpr mt prints the words in the tree that are identical, in the 
first nun characters, to at least one other word. 
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Exercise 6-3: (page 143 K&R) 

Write a cross-referencer that prints a list of all words in a document, and. for 
each word, a list of the line numbers on which it occurs. Remove noise words 
like "the," “and.” and so on. 

'include <stdio.h> 

'include <string.h> 

'include <ctype.h> 

'include <stdlib.h> 

'define MAXUORD 100 

struct linklist { /• linked list of line numbers •/ 

int lnum; 

struct linklist • p t r ; 

>; 

struct tnode < 

char ‘word; 

struct linklist • l i n e s ; 
struct tnode «left; 
struct tnode »right; 

>; 

struct tnode •addtreextstruct tnode », char • , int); 

int getword(char •, int); 

int noisewordCchar • ); 

void treexprint(struct tnode •); 

/• cross-referencer •/ 

mainC) 

< 

struct tnode «root; 
char wordtMAXWORD]; 
int linenum ■ 1; 

root - HULL; 

while (getwordCword, MAXNORD) !• EOF) 

if C i sa 1 pha(word [ 0 3 ) 4 4 no i seword ( word ) ■ » -1) 
root ■ addtreex(root , word, linenum); 
else if CwordtO) »■ *\n*> 

linenum**; 
treexprint(root); 
return 0; 


/• the tree node: • / 
/• points to the text */ 
/• line numbers •/ 
/• left child •/ 
/•right child •/ 
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struct tnode •talloc(void); 
struct linklist •1 a 11oc(vo 1 d ) ; 
void add 1nCstruct tnode *, int); 

/• addtreex: add a node with w, at or below p •/ 

struct tnode *addtreex<struct tnode *p, char «w, int linenum) 

< 

int cond ; 

if (p ■» NULL) { /• a new word has arrived »/ 

p B talloc(); /• make a new word */ 

p->word * strdup(w); 
p->1 i nes * 1 a 11oc() ; 

p-> 1 1 nes->1num * linenum; 
p->lmes->ptr - HULL; 
p->left ■ p->right - MULL; 

> else if ((cond * strcmp(w, p->word)) ■■ 0) 
addln(p, linenum); 
else if (cond < 0) 

p->left * addtreex(p->1eft, w, linenum); 

else 

p->right * addtreex(p->right, w, linenum); 
return p ; 

> 

/* addin: add a lire number to the linked list •/ 

void addln(struct tnode *p, int linenum) 

{ 

struct linklist *temp; 
t emp » p->1lnes; 

while (temp->ptr !■ NULL && temp->lnum !- linenum) 
temp ■ temp ->p t r ; 
if (temp->lnum !■ linenum) { 
temp->ptr - lalloc(); 
temp->ptr->1num • linenum; 
temp->ptr->pt r - HULL; 

} 

> 

/• treexprint: in-order print of tree p •/ 

void treexprint(struct tnode «p) 

{ 


struct linklist *temp; 
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if Cp •- HULL) < 

treexprint(p->left); 
pr 1 ntfC"X10 s: ", p->word); 

for (temp * p->lines; temp •« NULL; temp * temp->ptr) 
printf("X4d ", temp->1num); 
printfC" \ n*'); 
treexprint(p->right); 

> 

} 

/• lalloc: make a linklist node •/ 

struct linklist •Ja 1locCvoid) 

< 

return (struct linklist •) ma11oc(s i zeof(struct linklist)); 

> 


/• noiseword: identify word as a noise word 
int nolseword(char »w) 

{ 


static char *nw[3 - < 

"a" , 

"a n" , 

"and", 

"are", 

"in", 

"is", 

"of" , 

"or" , 

"that" , 

"t he" , 

"this", 

"to" 

> ; 

int cond, mid; 

l n t low ■ 0 ; 

int high » slzeof(nw) / sizeof(char •) 


1 ; 


while (low <■ high) < 

mid » (low ♦ high) / 2; 
if ((cond ■ strcmp(w, nwfmid])) < 0) 
high ■ mid - 1; 
else if (cond > 0) 
low ■ mid + 1 ; 

else 

return mid; 

> 

return -1 ; 



Structures Chap. 6 


153 


The tree contains one node per distinct word. Each node contains 

a pointer to the text of the word (word) 
a pointer to a linked list of line numbers (line j) 
a pointer to the left child node (left) 
a pointer to the right child node (right) 

Each element of the linked list of line numbers is a structure of type 
lint list. Each structure contains a line number and a pointer to the next 
element in the linked list. When there are no more elements in the list, the 
pointer is null. 

The routine addtreex is a modified version of eddt ree (page 141 K.&R) 
add t re ex installs the word in the tree and installs the line number in the 
corresponding linked list. If it is a new word, then the first element in the 
linked list gets assigned the line number: 

p-> 11nea->1num • linenum; 

If a word already is in the tree 

(Ccond ■ atrcmp(w, p->word)) ■■ 0) 

then the routine addin adds the line number to the linked list. 

addin traverses the linked list looking for an occurrence of the same line 
number or NULL: 

while (temp->ptr !• NULL 41 temp->lnum •- linenum) 
temp - temp - >p t r ; 

If the line number is not in the list, the routine adds the line number at the end 
of the linked list: 

if (temp->lnum !■ linenum) < 
temp->ptr - laltocC); 
temp->pt r - > 1 imffl - linenum; 
temp->ptr->ptr • NULL; 

1 


treexprint is a modified version of treeprlnt (page 142 K.&R). 
treexpr i nt prints the tree in alphabetical order. For each word in the tree, 
this routine prints the word and all line numbers where the word occurs. 
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noiseword is a function that searches a word in a static array of noise 
words. If a word is not one of the noise words, then the function returns - 1. 
You can add your own words to nwt ] as long as you keep the array in sorted 
ascending ASCII order. 

We modified get word to return *\n* so that we can keep track of line 
numbers: 


while tiaspacetc - getchO) ll c !■ '\n'> 
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Exercise 6-4: (page 143 K&R) 

Write a program that prints the distinct words in its input sorted into decreasing 
order of frequency of occurrence. Precede each word by its count. 


^include 

<stdio.h> 




* i nc 1 tide 

<c type.h> 




#de f i ne 

MAXNORD 100 




#def ine 

NDISTINCT 1000 




struct t node < 

/• 

the tree node: 

• / 

char 

•word; 

/ • 

points to the text 

• / 

i n t 

count ; 

/• 

number of occurrences 

• / 

struct tnode »left; 

/• 

left child 

• / 

struct trode *right; 

/• 

right child 

• / 


>; 


struct tnode •addtree(struct tnode • , char • ); 

int getword(char •, int); 

void sor11 1 st(vold); 

void treestore(struct tnode •); 

struct tnode •1iat£ND1ST1NCT1; /• pointers to tree nodes*/ 

int ntn - 0; /• number of tree nodes •/ 

/* print distinct words sorted in decreasing order of freq . •/ 
ma i n ( } 

< 

struct tnode ‘root; 
char wo r d[MA XWORD]; 
int i; 

root ■ NULL; 

while (getwordCword, MAXUORD) !■ EOF) 
if ( l sa lpha(wordC0] ) ) 

root ■ addtreeCroot , word); 
treestore(root); 
sortlistO; 

for (i ■ 0; i < ntn; l♦♦) 

printf("X2d:X20s\n", list£i]->count, listti]->word); 

return 0; 


> 
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/• treestore: store in List!] pointers to tree nodes •/ 

void treestore(struct tnode *p) 

< 

if (p !* NULL) { 

treestore(p->left); 
if (ntn < NDISTINCT) 
listlntn**] * p ; 
treestore(p->right); 

> 

> 

/* sortlist: sort list of pointers to tree nodes */ 

void sort 1 i s t( ) 

< 

1 n t gap, l, j ; 
struct tnode «temp; 

for (gap - ntn/2; gap > 0; gap /■ 2) 
for (i * 9 a p; i < ntn; l ♦ + ) 

for (j - l-gap; j >» 0; j -* gap) ( 

if (( 1 i s t[j ]->count) >■ (1 1 5t[j + gap 1 - >count)) 
break ; 

t emp ■ 1 1 s t [ j 1; 

1 l s t[j 1 = listtj+gapl; 
listlj^gapj - temp ; 


The maximum number of distinct words is NDISTINCT. The structure 
tnode is the one used on page 140 K&R. list is an array of pointers, where 
each pointer points to a structure of type tnode. The variable ntn contains 
the number of tree nodes. 

The program reads each word and places it in the tree. The routine 
trees tore then stores each pointer to tnode in the array list. The rou¬ 
tine sortlist is a modification of shel 1 sort (page 62 K&R). sort list 
sorts the array list in decreasing order of frequency of occurrence. 
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Exercise 6-5: (page 145 K&R) 

Write a function undef that will remove a name and definition from the table 
maintained by lookup and install. 

unsigned hashCchar •); 

/* undef: remove a name and definition from the table •/ 

void undefCchar »s) 

< 

i n t h ; 

struct nlist »prev, »np; 
prev - NULL; 

h » hesh(s); /* hash value of string s •/ 

for Cnp - hashtebCh); np !- NULL; np - np->next) { 

if (strcmpCs, np->name) ■* 0) 

break; 

prev ■ np; /• remember previous entry •/ 

> 

if (np !- NULL) { /• found name */ 

if (prev ■■ NULL) /• first in the hash list 7 •/ 

hashtablhl » np->next; 

else /• elsewhere in thehash list «/ 

prev->next ■ np->next; 
free((void *) np->name); 
freetCvoid •) np->defn); 

free((void •) np); /* free allocated structure * / 

} 

> 


The routine undef looks for the string a tn the table. When undef finds 
the string a it exits the loop: 

if (atrcmpta, np->name) *■ 0) 
break; 


If the string a is not in the table, the for loop terminates when the pointer 
np becomes NULL. 

If np is not NULL there is a name and a definition to be removed from the 
table. An entry in baahtab points to the beginning of a linked list np 
points to the entry to be removed and prev points to an entry preceding np. 
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When prev is NULL then np is the first entry in the linked list starting at 
hash tab C h]: 

if (prev ■■ NULL) 

hashtabCh] • np->next; 

else 

prev->next ■ np->next; 

After removing the np entry, the space allocated for the name, the defi¬ 
nition, and the structure itself is freed (free, page 167 K&R): 

freeCCvoid •) np->name); 
freeCCvoid • ) np->defn); 
freeCCvoid •) np); 
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Exercise 6-6: (page 145 K&R) 

Implement a simple version of the #def ine processor (i.e., no arguments) 
suitable for use with C programs, based on the routines of this section. You 
may also find getch and ungetch helpful. 

'include <stdio.h> 

'in c1ude retype.h> 

'include <strmg.h> 

'define MAXWORD 100 

struct nlist < 

struct nlist ‘next; 
char *name; 
char *defn; 

> ; 

void error(int, char*); 
int getch(void); 
void getdef(void); 
int getwordtehar •, int); 
struct nlist •instalKchar «, char*); 
struct nlist •lookup(char •); 
void skipblanks(void); 
void undef(char •); 
void ungetchCirt); 
void ungets(char • ); 

/• simple version of 'define processor •/ 

main() 

< 

char wCMAXWORD); 
struct nlist • p ; 

while (getwordCw, flAXWORD) !■ EOF) 

if CstrcmpCw, "#•') 0) /• beginning of direct 

g e tdef( ) ; 

else if <!isalphaCwt0 ] )) 

printfC"Xs M , w); /• cannot be defined 

else if <(p ■ lookup(w)) -- NULL) 

printfC'Xs", w); /• not defined 

else 

ungets<p->defn ) ; /• push definition 

return 0 ; 

} 


• / 

•/ 
• / 
• / 


/• table ent ry: • / 
/• next entry in the chain ♦/ 
/• defined name */ 
/• replacement text */ 
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/• getdef: get definition and install it ♦/ 

void getdef(void) 

{ 

i n t c , i ; 

char def[MAXWORD!, dirIMAXUDRD!, name[MAXWORD1; 
skipblanksC); 

if C!isalphaCgetwordCdir, MAXWORD))) 
errorCdirt 01 , 

"getdef: expecting a directive after #" ) ; 
else if CstrcmpCdir, "define") ■■ 0) < 
skipblanlcsC); 

if C!isalphaCgetwordCname, MAXWORD))) 
er ror< name t 01 , 

••getdef: non-alpha - name expected"); 

else { 

skipblanksC); 

for Ci - 0; i < MAXWORD-1; !♦♦) 

if CCdefti! - getchO) ■- EOF I I 

def[i1 ■■ '\n ') 

break; /* end of definition ♦/ 

def [ l 1 - ' \0'; 

if (i <■ 0) /* no definition ♦/ 

error('\n', "getdef; incomplete define"); 
else /• install definition ♦/ 

installCname, def); 

} 

> else if CstrcmpCdir, "undef") ■* 0) < 

skipblanksC); 

if C 1 lsa1phaCgetwordCname, MAXWORD))) 

errorCname[01, "getdef: non-alpha in undef"); 

else 

undefC name); 

> else 

error Cdir[0 1 , 

"getdef: expecting a directive after #"); 

> 

/* error: print error message and skip the rest of the line */ 
void errorCint c, char *s) 

< 

printfC"error: Xs\n", a); 
while Cc ‘■ EOF At c !■ '\n') 
c ■ getchC); 


> 
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/• skipblanks: skip blank and tab character; •/ 

void 5k l p b 1 a n It s ( vo i d ) 

< 

l n t c ; 

while <<c ■ getchO) ■* ' ' !1 c ■* '\t') 

ungetcht c ); 

} 


The main program contains the body of this simple processor. Directives 
(define, undef) are expected to follow a • and the function getdef resolves 
that. If getword does not return an alphabetic character, then the word could 
not have been defined and the program prints the word. Otherwise the program 
searches for a possible definition for the word. When a definition exists, the 
function ungets (Exercise 4-7) pushes it back in reverse order onto the input 
stream. 

The function getdef handles the directives: 

^define name definition 

eundef name 


for 


The name is expected to be alphanumeric. 

In a define, the loop 

(i - 0; i < MA XWORD-1 ; i ♦ • ) 
if ( (de f [ i 1 - getchO) -* EOF II 

def[i] * * 

break; 


' \n') 


gathers the definition until it finds the end of the line or end of file. If a 
definition exists, getdef installs it in the table using the in ta 11 function (page 
145 K&R). 

An undef directive causes a name to be removed from the table (Exercise 

6-5). 

We modified getword to return spaces so that the output resembles the 
input data. 
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Exercise 7-1: (page 153 K&R) 

Write a program that converts upper case to lower case or lower case to upper, 
depending on the name it is invoked with, as found in argvt 0 ]. 

#inc1ude < s t d 1 o . h > 

^include <string.h> 

#include <ctype.h> 

/• lower: converts upper case to lower case •/ 

/• upper: converts lower case to upper case ♦/ 

main(int arge, char •argvM) 

< 

i n t c ; 

if CstrcmpCarqv[0 1, "lower") ■■ 0) 
while (<c ■ getcharO) *■ EOF) 
putcharCtolowerCc)); 

else 

while CCc ■ getcharO) •- EOF) 
putchar(toupperCc)); 

return 0; 

} 


When the program is invoked with the name l owe r, it converts upper case 
to lower case. Otherwise it converts lower case to upper. 

stremp returns zero when argvIO) is the string lower. 
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Tlie statement 


if < a tr cmpta r gv[ 0}, "lower") ■■ 0) 

works on UNIX because argv10 ] is the program name as the user typed it. 
On some operating systems a r gv 10 1 is the full path where the program resides, 
as opposed to what the user typed. 

The program uses tolower and toupper from <ctype.h>. 
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Exercise 7-2: (page 155 K&R) 

Write a program that will print arbitrary input in a sensible way. As a minimum, 
it should print non-graphic characters in octal or hexadecimal according to local 
custom, and break long text lines. 

'inc 1 ude <stdio.h> 

'include <ctype.h> 

'define MAXLINE 100 /• max number of chars in one line •/ 

'define OCTLEN 6 /• length of an octal value •/ 

/« print arbitrary input in a sensible way */ 

mainO 

< 

int c, pos ; 

int incCint pos, int n ) ; 

pos * 0; /• position in the line 

while CCc ■ getcharC)) EOF) 

if (iscntrl(c) I I c ■■ * *) < 

/• non-graphic or blank 
pos * inc(pos, OCTLEN); 
printfC" \\X03o ", c); 

/• newline character 7 
if (c »■ 'Vn') < 
pos ■ 0; 
putchar('\n'); 

> 

> else i. /• graphic character 

pos ■ incCpos, 1); 
putchar(c) ; 

> 

r e t u r n 0 ; 

> 

/• inc: increment position counter for output •/ 

int inc(int pos, int n) 

< 

if (pos ♦ n < MAXLINE) 
return pos*n; 
else { 

putchar('\n'>; 

return n; 

> 

} 
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The lenglh of an output line is max LI ne. The macro 1 sen tr l is defined 
in retype.h> iscntrl finds the non-graphic characters the delete character 
(octal 0177) and ordinary control characters (less than octal 040). Blanks are 
also considered non graphic characters. Non graphic characters are printed in 
octal (preceded by a blank and a \ and followed by a blank) using OCTLEN 
positions A newline character resets pos: 

if (c »• ' \n') 1 

pos • 0; 
put cha r C'\ n 'J; 

} 

The function inc returns the last position used and breaks a line if there 
are not r places available for output. 
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Exercise 7-3: (page 156 K&R) 

Revise m i n pr i n t f to handle more of the other facilities of printf. 


#include 
*1 nc lude 
# 1 nclude 


<5tdio.h> 

<s tdarg.h> 
< c t ype.h > 


'define LOCALFMT 100 


/• minprintf: minimal printf with variable argument list •/ 
void minpr i ntfCchar *fmt, ...) 

< 

va_list ap; /• points to each unnamed arg •/ 

char *p, *sva1; 

char 1 oca 1fmt[LOCALFMT] ; 

i n t l , i va 1 ; 

unsigned uval; 

double dva1; 


va_start(ap, fmt); / « make ap point to 1st unnamed arg*/ 

for Cp ■ fmt; * p; p ♦ 4 ) { 
if (*p != 'X') 1 
pu tc.ic* ( *p) ; 
continue; 

} 

i « 0; 

localfmtti**] * ' X' ; /• start local fmt * / 

while C*(p*1) 44 'isalpha(*Co*1))) 

1 oca 1fmtt i 44 1 = * 44 p; /* collect chars */ 

localfmtti* + 3 * *Cp*1); /• format letter •/ 

1 oca 1fmt[i 1 = 'NO'; 

5witch(***p) { /• format letter */ 

case 'd': 
case ' l' : 

ival s va_arg(ap, int); 
printf(localfmt, ival); 
break ; 
case ’ x* : 
case * X ': 
case 'u': 
case 'o': 

uval a va_arg(ap, unsigned); 
printf(localfmt, uval); 
break; 
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> 


case ' f ': 

dva 1 ■ va_arg(ap, double); 
printfClocalfmt, dva 1 ); 
break ; 
case 's': 

sva1 * va_arg(ap, char •); 
printfClocalfmt, sval); 
break ; 
default : 

printf(localfmt); 
break; 

} 

> 

va_end(ap); /•cleanup 


minprmtf walks along the argument list and pnntf does the actual 
printing for the facilities supported. 

To handle more of the other facilities of pr i ntf we collect in localfmt 
the X and any other characters until an alphabetic character—the format letter, 
localfmt is the format argument for pr i nt f. 
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Exercise 7-4: (page 159 K&R) 

Write a private version of scant analogous to mtnpr intf from the previous 
section. 

'include <atdio.h> 

'include <atdarg.h> 

'include <ctype.h> 

'define LOCALFMT 100 

/• minacanf: minimal acanf with variable argument list •/ 

void minacanf(char •fmt, ...) 

< 

va_liat ap; /* pointa to each unnamed arg •/ 

char »p, »aval; 

char localfmt(LOCALFMT); 

int c, l, • iva 1 ; 

unaigned *uval; 

double *dva 1 ; 


i ■ 0; /• index for localfmt array •/ 

va_start(ap, fmt); /* make ap point to lat unnamed arg»/ 
for Cp ■ fmt; *p; p ♦♦ ) f 
if C * p 'X') ( 

localfmt!!♦*] ■ «p; /• collect chara •/ 

continue; 

> 

1ocalfmt[i♦♦] ■ 'X'; /• atart format */ 

while C •< p ♦ 1 ) ** ! i aalpha(•(p*1 ))) 

locaIfmtIi♦♦] ■ •♦♦p; /* collect chars •/ 

localfmtli**) ■ * C p♦1); /• format letter •/ 

1 oca 1fmt fi 1 - ' X 0 ' ; 

awitch(«**p) < /• format letter •/ 


c a a e * d * : 
caae * i 0 : 

ival ■ va_arg(ap, int •); 
acanfC loca Ifmt , ival); 
break ; 
caae 'x': 
caae 'X': 
caae *u *: 
caae *o *: 

uvol ■ va_erg(ap, unaigned •); 
acanf(localfmt , uval); 
b r ea k ; 
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case * f': 

dva 1 * va_arg(ap, double • ) ; 
acanf(1ocalfmt, dval); 
break; 
case * a *: 

aval ■ va_arg(ap, char *); 
scarfC1oca 1fmt, aval); 
break ; 
defau1t: 

acanf(1 oca 1fmt); 
break ; 

i * 0; /* react index */ 

> 

va_end(ap); /• clean up •/ 

> 

minacanf is similar to minprintf. This function collects characters from the 
format string until it finds an alphabetic character after a x. That is the lo- 
cal fmt passed to acanf along with the appropriate pointer. 

The arguments to acanf are pointers: a pointer to a format string and a 
pointer to the variable that receives the value from acanf. We use v=_arg 
to get the value o f the pointer and copy it t o a local pointe r and we call acanf. 
acanf then reads a value into the user’s variable. 
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Exercise 7-5: (page 159 K&R) 

Rewrite the postfix calculator of Chapter 4 to use acanf and/or sacanf to do 
the input and number conversion. 

•include <atdio.h> 

^include <ctype.h> 

#define HUMBER '0' /• signal that a number was found •/ 

/• getop: get next operator or numeric operand •/ 

ln t get op(char s t1) 

{ 

i n t c , l, r c ; 

static char lastcN » " ; 

sscanftlastc , "X c", 4c); 

lastctOl-''; /• clear last character •/ 

while CCsCOl * c) ' II c ■■ '\t') 

if CscanffXc", 4c) •- EOF) 
c - EOF 4 ; 
s(13 - ' \0'; 

if ('isdigit(c) 44 c !* '.') 

return c; /• not a number •/ 

l-O; 

ifCisdigit(c)) /• collect integer part •/ 

do < 

re - scanfCXc", 4c); 
if (!i sd i g 1 1(s(♦♦ 1 1 - c)) 
break; 

) wh ile (rc !« EOF); 

if (c -» '.') /• collect fraction part •/ 

do < 

rc - scanf C ,, Xc M , 4c); 
if (!isdigit(st♦♦i3 ■ c)) 
break ; 

> while (rc ! = EOF); 
s ( i 1 - ' \ 0 ' ; 
if (rc EOF) 

lastc(O) - c; 
return HUMBER; 

> 

The function getop (page 78 K&R) is the only routine modified. 

One thing to remember between calls to getop is the character following 
a number, las t c is a two element static array that remembers the last character 
read (sscanf expects a string). 
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The call 

sscanf(lastc, "Xc", 4c) 

reads the character put in lastc tOJ. You could use 

c ■ las t c[0) 

instead. 

s c a n f returns the number of successfully matched and assigned input items 
(page 157 K&R). And it returns EOF on end of file. 

We also changed the expression 

isd1gtsC*+j1 * c ■ getchC)) 

into 


re » scanfO'lc", Sc); 
if C■isdlgitCsE*♦i1 ■ c>) 
break ; 

because we have to invoke scant, assign the character to the string s, and then 
test for a digit. 

It is possible that scant found EOF and consequently did not alter the 
variable c. That’s why we test for 

re !- EOF 

scant does not help improve the original getop when we read one character 
at a time with scant. 
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Another possible solution is: 

'include <stdio.h> 

'include <ctype.h> 

'define HUMBER 'O' /• signal that a number was found «/ 

/• getop: get next operator or numeric operand «/ 

int getop(char s[ ] ) 

< 

i n t c , r c; 
float f; 

while CCrc ■ scanfCXc", 4c)) !• EOT) 

if ((s(0] - c) !* ' ' 44 c !- '\t') 
break; 

5[1 1 - ' \ 0 ' ; 

if (re -• EOF) 

return EOF; 

else if C!isdigit(c) 44 c !■ '.') 

return c ; 
ungetcCc , stdin) ; 
scanfC'Xf", 4f); 
spnntfCs, •• Xf'•, f); 
return HUMBER; 

> 


We read a character at a time until we find one that is neither a blank nor 
a tab. The loop may also terminate due to end of file. 

If the character is either a digit or a decimal point, we push it back onto 
the input using the library function u n g e t c . Then we read the number. Since 
getop returns the number as a floating-point value, we use sprint f to convert 
the value of f into a character string in 5 . 
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Exercise 7-6: (page 165 K&R) 

Write a program to compare two files, printing the first line where they differ. 

#include <stdio.h> 

^include <atdlib.h> 

^include <string.h> 

# def i ne MAXLIME 100 

/• comp: compare two files, printing first different line •/ 

mainCint argc , char •argvCl) 

< 

FILE •fpi, *fp2; 

void fi1ecomp(FILE •fp1 , FILE *fp2); 

if (argc !• 3) < /• incorrect number of arguments 7 •/ 

fpr i ntf(stderr, "comp: need two file nemes\n"); 
ex i t(1) ; 

> else < 

if C C f p1 ■ fopen(•♦*argv, "r")) ■■ NULL) < 

fprintfCstderr, "comp: can't open Xs\n", «argv); 
e x i t C 1 ) ; 

> else if <Cfp2 ■ fopen(•♦*argv, "r")) -- NULL) < 

fprintfCstderr, "comp: can't open Xs\n", «argv); 
exitCI); 

) else < /• found and opened files to be compared*/ 

filecompCfpi, fp2); 
fcloseCfpl); 
fclose(fp2); 
e x i t C 0 ) ? 
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/• filecomp: compare two files - a line at a time */ 

void fi1ecomp(F1LE »fp1, FILE «fp2) 

< 

char linelCMAXLINE 1 , 1ine2CMAXLINE1; 

char •1p1 , •1p2; 


> 


do < 

lpl - fgelsClinel , MAXLINE, fpl); 
lp2 • fgetsCl ine2 , MAXLINE, fp2); 
if (lpl ■■ linel 44 lp2 ■■ line2) t 

if <strcmpC 1 inet , line2) !■ 0) < 

printf("first difference in line\nXs\n", linel) 
lpl - 1p2 - NULL; 

> 


> else if (lpl !■ linel 44 lp2 •• line2) 

printfC'end of first file at line\nXs\n", line2); 
else if (lpl ■■ linel 44 lp2 !■ Iire2) 

printfC'end of second file at line\nXs\n", linel); 
> while C1p1 ■■ linel 44 lp2 ■■ line2); 


The number of arguments should be three: program name and two file 
names. The program opens the files and filecomp compares them a line at 
a time. 

filecomp reads a line from each file. The function fgets returns a 
pointer to the line read or NULL on end of file. If lpl and lp2 point to their 
respective lines, neither file has ended and l inecomp compares the two lines. 
When the lines do not match, filecomp prints the line where they differ. 

If l p 1 or l p2 does not point to its respective line, one of the files has ended 
(EOF) and the files differ. 

If both lpl and lp 2 do not point to their respective lines, both files have 
ended (EOF) and the files do not differ. 
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Exercise 7-7: (page 165 K&R) 


Modify the pattern-finding program of Chapter 5 to take its input from a set of 
named files or, if no files are named as arguments, from the standard input. 
Should the file name be printed when a matching line is found? 


'include 
'include 
# include 


<stdio.h> 

< a t ring.h> 
<atdlib.h> 


'define MAXLINE 1000 


/♦ maximum input line length ♦/ 


/• find: print 1inea that match pattern from lat argument «/ 
main(int argc, char «argv!]) 

< 

char pattern!MAXLINE]; 

int c, except ■ 0, number * 0; 

FILE ♦ f p; 

void fpatCFILE «fp, char •fname, char ‘pattern, 
int except, int number); 


while (--argc > 0 44 (•♦♦argvMOl 
while Cc ■ •♦♦argvtOl) 
awitch (c) < 
case * x': 

except ■ 1; 
break ; 
case * n': 

number ■ 1; 
break; 
default: 

printf<"find: illegal option Xc\n", c>; 
argc - 0; 
break ; 

} 

if (argc >* 1) 

atrcpyCpattern, *argv); 
elae < 

pr i n t f C “Usage: find 1-x] l-n] pattern [file ...l\n**) 
exit<1>; 
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if Cargo •« 1) /• read standard input •/ 

fpatCstdin, , pattern, except, number); 

else 

while (--argc > 0) /• get a named file •/ 

if C(fp ■ fopenC**»argv, "r")) ■■ NULL) < 

fprintfCstderr, “find: can't open Xs\n", 

• a r gv ) ; 

exitC 1 ) ; 

> else < /• named file has been opened •/ 

fpatCfp, «argv, pattern, except, number); 
f closeCfp); 

> 

return 0; 

> 


/• fpat: find pattern 

void fpatCFILE »fp, char •fname, char •pattern, 
int except, int number) 

< 

char lmetMAXLlNE]; 
long lineno ■ 0; 


while CfgetsCline, MAX LINE, fp) !« NULL) { 

♦♦1ineno; 

if (Cstrstr Cl me, pattern) ■ ■ NULL) ! ■ except) { 

if («fname) /• have a file name • / 

printfCXs - ", fname); 

if Cnumber) /• print line number*/ 

printfCXld: M , lineno); 
printfC’Xs", line); 

> 

> 


The main program processes the optional arguments as in Chapter 5 (page 
117 K&R). After that, it expects at least one more argument—the pattern. 
If file names do not follow the pattern, it uses the standard input. Otherwise, 
it opens a named file. In either case, it invokes fpat. 

Most of the function fpat is similar to the code in the original main 
program. It reads a line at a time until f ge t s (page 165 K&R) returns NULL, 
fpat looks for the specified pattern in each line. The possibilities are: 
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( a t r a t r( 1 i n e, pattern) !- NULL) 

0 (did not find pattern) 
t C found pattern) 

0 (did not find pattern) 

1 (f ound pat tern) 




183 

1 « 

except 

result 

1 . 

0 (not apecif i e d) 

f al ae 

! - 

0 (not apecified) 

true 

! - 

1 (apec ified) 

true 

1 - 

1 ( apec if ied) 

f a l 5 e 


When the result of that expression is true, 1 pa t prints the file name (unless 
it is the standard input), the line number if it was asked for, and the line itself. 
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Exercise 7-8: (page 165 K&R) 

Write a program to print a set of files, starting each new one on a new page, 
.with a title and a running page count for each file. 


'include <atdio.h> 
'include <atdlib.h» 


'define 

MAXBOT 

3 

/* 

maximum 

' 

1 i nea 

a t 

bo 11om page 

•/ 

'define 

MAXHDR 

B 

/* 

ma ximum 

# 

1 i nea 

a t 

head of page 

• / 

'define 

MAXLINE 

1 00 

/• 

maximum 

a i z e of 

one 

line 

•/ 

'define 

MAXPAGE 

66 

/* 

maxi mum 

# 

1 i nea 

on 

one page 

•/ 

/ • pr i n t : 

print fil 

ea - 

each new one 

on a 

new 

page 

*/ 


mainCint argc , char «argv[ ]) 

< 

FILE * fp; 

void fi1eprint(FILE *fp, char «fname); 


if (argc *■ 1) /« no arga; print atandard input •/ 

fileprmtCatdin, " ") ; 

elae /• print file(a) •/ 

while (--argc > 0) 

if ((fp * fopen(•♦*argv, "r")) ■■ NULL) { 
fprintf(stderr, 

"print: can't open Xs\n", «argv); 
e x i t (1 ) ; 

> elae { 

f i 1epr i nt(fp , «argv) ; 
fcloae(fp); 

} 

return 0 ; 

> 

/• fileprint: print file fname */ 

void f i leprint(FILE «fp, char «fname) 

( 

int lineno, pageno ■ 1; 
char line(NAXLINE); 

int heading(char • f name, int pageno); 
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lineno * head i ng ( f name , pageno**); 
while (fgetsCline, MAXLINE, fp) •- NULL) { 
if (lineno - 3 1) < 

fprintf(stdout , "\f ") ; 

lineno * head 1 ng(fname, pageno**); 

} 

fputsCline, stdout); 
if (♦♦lineno > MAX PAGE - P1AXB0T) 
lineno 3 1 ; 

> 

fprintf( 3 tdout, "\f"); /* page eject after the file •/ 

> 

/•heading: put heading and enough blank lines */ 

int heading(char •fname, int pageno) 

{ 

int In ■ 3; 

fprintf(stdout , M \n\n"); 

fprintf(atdout , "Xs page Xd\n" , fname, pageno); 
while (1n♦♦ < MAXHDR) 

fprintf(stdout, "\n"); 
return In; 

} 


The program is similar to cat (page 163 K&R). 

The function f ileprint takes two arguments: a pointer to an open file 
and a pointer to the file name (an empty string when the file is the standard 
input). f i 1 e p r i n t reads and prints lines. 

The character 


\f 

is the form feed. 

The variable lineno counts the number of lines on a page The page 
length is MAXPAGE. When 1 ineno is equal to 1, f i 1 epr in t puts a form feed, 
a new heading, and resets 1 i neno. We also put a form feed at the end of the 
last page of each file. 

The function heading prints the file name and page number then puts 
enough newline characters so that there are MAXHDR lines at the top of the page. 
max BOT is the number of blank lines at the bottom of the page. 
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Exercise 7-9: (page 168 K&R) 

Functions like i supper can be implemented to save space or to save time. 
Explore both possibilities. 

/• isupper: return 1 (true) if c is an upper case letter •/ 

int isuppertchar c) 

< 

if (c >* 'A' At c <■ 'Z') 
return 1 ; 

else 

return 0; 

> 

This version of isupper is a simple if-else construction that tests a character. 

If the character is within the range of the ASCII upper case letters it returns 1 
(true), otherwise it returns 0 (false). This version of i supper saves space. 

^define isupperCc) C<c) >■ 'A' 44 (c) <■ 'Z') 7 1 0 

This version of isupper saves time and uses more space. 

It saves time because there is no overhead of the function call and it uses 
more space because the macro Is expanded in line every time it is invoked. 

Another thing to keep in mind is the potential problem if the argument is 
evaluated twice. 

For example, 

char »p • “This is a string"; 
if tisupper (*p♦♦)) 


The macro expands into 

C(«p*») >- 'A' II (*p**> <- 'Z'i 71:0 

which, depending on the value of »p, will increment the pointer p twice. Note 
that this second increment will not happen when i supper is a function because 
the argument to the function is evaluated once. 
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Normally this unexpected second increment of the pointer p leads to in¬ 
correct results. One possible solution is 

char »p - “This is a string"; 

if C isuppe r(•p)) 

p..; 


You have to be aware of macros that may evaluate the argument more 
than once. Examples are the macros toupper and tolover in <ctype.h>. 
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Exercise 8-1: (page 174 K&R) 

Rewrite the program ca t from Chapter 7 using read, writ e, open, and close 
instead of their standard library equivalents. Perform experiments to determine 
the relative speeds of the two versions. 

'include <stdio.h> 

' Inc 1 tide <f cnt 1 . h> 

'include •'syscalls.h" 

void errorCchar •frat, 

/• cat: concatenate files - read / write / open / close ♦/ 

mainCint argc, char •argvtl) 

{ 

i n t f d ; 

void fifecopyCint ifd, int ofd); 

if (argc ■■ 1) /• no args ; copy standard input ♦/ 

filecopy(0, 1); 

else 

while (--argc > 0) 

if ((fd - open(* ♦ ♦argv, 0_RDGNLY)) -- -1) 
errorC'cat: can't open Xs", »argv); 
else < 

filecopy(f d, 1 ); 

c1ose(fd); 

> 

return 0; 

> 
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/» filecopy: copy file lfd to file ofd 
void filecopytint lfd, int ofd) 

< 

1 n t n ; 

char bufCBUFSIZ); 


> 


while tto ■ readfifd, buf, BUFSIZ)) > 0) 
if (writetofd, buf, n) !■ n) 

errorC'cat: write error"); 


The statement 

if (Cfd ■ openC»*-argv, 0_RD0NL Y)) -- -1) 

opens a file for reading and returns a file descriptor (an integer); it returns a 
-1 if an error occurs. 

The function f i 1 ec opy reads BUFSIZ characters using the file descriptor 
if d. read returns a byte count of the characters actually read. While the 
byte count is greater than 0 there are no errors; a 0 indicates end of file and a 
- 1 indicates an error. The function write writes n bytes, otherwise an error 
has occurred 

error is the function on page 174 K&R. 

This version is about twice as fast as the original version in Chapter 7 K&R. 
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Exercise 8-2: (page 178 K&R) 

Rewrite f open and _ f i1 1 bu f with fields instead of explicit bit operations. Com¬ 
pare code size and execution speed. 

#include <fcntl.b> 

/'include "ayacaL1a.h" 

/define PERMS 0666 /• RW for owner, group, others •/ 

/• fopen: open file, return file ptr • / 

FILE •fopen(cher •name, char *mode) 

< . 

i n t f d; 

FILE •f p; 


if (*mode !• *r* it •mode ! 
return NULL; 

for (fp ■ _iob; fp < _iob * 
if <fp->flag.is_read * 
break; 

if <fp >• _ i ob ♦ OPEN.MAX) 
return NULL; 


- 'w' && *mode *« 'a') 

QPEN.MAX; fp**) 

• 0 At fp->flag. i s_write 
/• found free slot 

/• no free slots 


0) 

•/ 


*/ 


if C*mode *■ 'w') /• createfile 

fd - creat(name, PERMS); 
else if (•mode ■■ 'a') f 

if ((fd ■ open(name, Q_WRQNLY, 0)) ■* -1) 
fd ■ creat(name, PERMS); 

1 seek(fd, OL, 2); 

> else 


fd ■ openlname, 0_RD0NLY 
if (fd -1) 

return NULL; 
fp->fd ■ fd; 
fp->cnt ■ 0; 
fp->base - NULL; 
fp->flag.is_unbuf * 0; 
fp->flag . is_buf • 1; 
fp->f1ag.is_eof ■ 0; 
fp->flag.ifl_err ■ 0; 
if (*mode 'r') < 

fp->flag.ls_read *1; 
fp->flag.is_write ■ 0; 

> else { 

fp->flag.ia_read * 0; 
f p-> f lag . is_wr i t e • 1; 


, 0 ); 

/♦ couldn't access name 


/• read 


/ • write 


return fp; 


•/ 


> 
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/* .fillbuf: allocate and fill input buffer •/ 

int _fillbufCFILI *fp) 

< 

int bufaize; 


if (fp->flag.ia_read »• 0 II 
fp->flag. ia.eof ■» 1 II 
fp->flag.is_err 1 ) 

return EOF; 

bufaize ■ Cfp->flag.ia_unbuf ■■ 1) ? 1 : BUFSIZ; 

if <fp->baae ■■ NULL) /* no buffer yet */ 

if ((fp->baae ■ (char •) mallocCbufaize)) •* NULL) 

return EOF; /* can't get buffer */ 

fp->ptr ■ fp->baae; 

fp->cnt ■ read(fp“>fd, fp->ptr, bufaize); 
if (--fp->cnt < 0) < 

if (fp->cnt -1) 

fp->flag.ia_eof » 1; 

el ae 

fp->flag.ia.err » 1; 
fp->cnt ■ 0; 
return EOF; 

> 

return (unaigned char) •fp->ptr*+; 


The typedef for atruct _iobuf appears on page 176 K&R. One of 

the members of _iobuf is 

int flag; 

The variable flag is redefined in terms of bit fields: 

atruct flag.field { 

unaigned is.read : 1; 
unaigned ia.write 1; 
unaigned ia.unbuf 1; 
unaigned ia.buf : 1; 
unaigned ia_eof 1; 

unaigned ia.err : 1; 

> ; 

In the statement 

if ((fp->flag 4 (.READ I .WRITE)) «- 0) 
break; 
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the values .READ and .WRITE are OR’ed together: 


(.READ 

01 

01 


I .WRITE) 

I 02 octal 

I 10 binary 

II result 


This means that the 1 1 statement is true when both lower order bits of 
flag are off (neither read nor write). It verifies that an entry in _iob is not 
being used for read or write. 

Bit fields explicitly test for this condition: 

if Cf p->f lag. is_read »» 0 U fp->flag.is.write ■■ 0) 
breek ; 

The next modification explicitly sets the bits: 

fp->fleg.is.unbuf • 0; 
fp->fleg.is_buf ■ 1; 
fp->flag.is_eof ■ 0; 
fp->flag.is_err ■ 0; 

Next, 

fp->flag - C"mode •• 'r') 7 _READ : .WRITE; 

sets flag according to mode. If it is 'r ',it sets f lag to .READ, otherwise it sets 
flag to .WRITE. 

With bit fields, if the mode is 'rthe bit is.read is set to 1. If not, 
the is_wr i te bit is set to 1: 

if (•mode *r 0 ) { 

fp->flag.ia_read • 1; 
f p->f Lag . ia_wr i te - 0-, 

> else < 

fp->f lag . ts.read ■ 0; 
fp->flag.ia_write * 1; 

> 

The function _f i Ilbuf changes similarly. 

The function _f ilibuf returns an EOF for the following situations: the 
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file was not open for reading, an end of file already happened, or an error has 
been detected 

if ((fp->flag I (_READI_EOFI_ERR)) !- .READ) 

This condition is tested with bit fields: 

if Cfp->flag.is.read ■■ 0 II 
fp->flag.is.eof *■ 1 II 

fp->flag.is.err ■■ 1) 

Next, 

bufaize * (fp->flag l _UNBUF) ? 1 : BUFS1Z; 

changes to 

bufaize ■ (fp->flag.ia.unbuf 1 ) ? 1 : BUFSIZ; 

And 

fp-> flag I - _E0F; 

elae 

fp->flag I* _ERR; 
becomes 

fp->flag.ia.eof » 1; 

elae 

fp->flag.ia.err » f; 

The code size of the modified function was larger and the functions were slower. 
Bit fields are machine dependent and may slow down execution. 
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Exercise 8-3: (page 179 K&R) 

Design and write _f lushbuf, f flush, and f close. 

^include “syscella.h" 

*/ 

*/ 

• / 


/• _flu5hbuf: allocate and flush output buffer 
int _flushbuf(int x, FILE *fp) 

< 

unsigned nc; /• * of chars to flush 

int bufsize; /• size of buffer alloc. 


if Cfp < _ l ob Si fp >- _iob ♦ OPEN.MAX) 

return EOF; /• error: invalid pointer*/ 

if ((fp->flag 4 (.WRITE I .ERR)) »- .WRITE) 
return EOF; 

bufsize - (f p->f lag 4 _UHBUF) 1 : BUFSIZ; 

if (fp->bese -- NULL) < /• no buffer yet •/ 

if C(fp->base - (char •) ma11oc(bufs i ze)) »= NULL) ( 
fp->flag J- .ERR; 

return EOF; /• can't get buffer •/ 

> 

> else { /• buffer already exists •/ 

nc - fp->ptr - fp->base; 

if (write(fp->fd, fp->base, nc) 1 ■ nc) ( 
fp->flag S■ .ERR; 


return EOF; 




fp->ptr - fp->base; 
•fp->ptr** - (char) x; 
fp->cnt ■ bufsize - 1; 
return x; 


/• error: return EOF •/ 


/• beginning of buffer •/ 
/• save current char •/ 


> 


/• fclose: close file 
int fcloseCFILE *fp) 

< 

int r c ; 


/• return code 


if ((re - ffiush(fp)) »* EOF) i 
free(fp->base); 
fp->ptr - NULL; 
f p-> c n t ■ 0; 
fp->base ■ NULL; 
f p - > f lag 4- ’(.READ I .WRITE); 

> 

return rc; 


/• anything to flush** •/ 
/• free allocated buffer •/ 
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/• ffluah: flush buffer associated with file fp •/ 

int fflush(FILE *fp) 

< 

int r c ■ 0 ; 


if <fp < .lob II fp >■ _lob ♦ 
return EOF; 

if (fp->flag a .WRITE) 

rc ■ _fluahbuf(0, fp); 
fp->ptr ■ fp->base; 
fp->cnt ■ <fp->flag 4 .UNBUF) 
return rc; 


OPEN.MAX) 

/* error: invalid pointer*/ 


? 1 : BUFSIZ; 


_f lushbuf returns anEOF ifthefile was not open for writing or an error 
has occurred: 

if C{fp->flag 4 (.WRITE I .ERR)) .WRITE) 
return EOF; 

If there is no buffer yet, one is allocated as in _f i 1 lbuf (page 178 K&R). 
If the buffer exists, then its characters are flushed. 

The next step is to save the argument in the buffer: 

•fp->ptr»« * (char) x; 

The number of possible characters in the buffer (fp->cnt) is then one 
less than the buffer size because of the character just saved. 

The function f c 1 o se invokes f f 1 u s h. If the file was opened for writing 
it might be necessary to flush some characters, f c 1 o a e resets members of the 
.iobuf structure so that f open will not encounter meaningless values in a free 
slot. The return code is 0 if no errors exist. 

ffluah checks for a valid file pointer and calls _f lushbuf if the file was 
open for writing, ffluah then resets ptr and cnt, then returns rc. 
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Exercise 8-4: (page 179 K&R) 

The standard library function 

int faeekCFILE »fp, long offset, int origin) 

is identical to laeek except that f p is a file pointer instead of a file descriptor 
and the return value is an int status, not a position. Write fseek. Make 
sure that your fseek coordinates properly with the buffering done for the other 
functions of the library. 

^include "syscalls.h** 


/• fseek: seek with a file pointer •/ 

int faeekCFILE »fp, long offset, int origin) 

< 

unsigned nc; /• # of chars to flush •/ 

Long rc ■ 0; /* return code •/ 

if (fp->flag l> .READ) { 

if (origin ■■ 1) /* from current position ? •/ 

offset -• fp->cnt; /• remember chars in buffer •/ 

rc - 1seekCfp->fd, offset, origin); 

fp->cnt » 0; /• no characters buffered •/ 


> else if (fp->flag 4> .WRITE) < 

if (Cnc » fp->ptr - fp->base) > 0) 

if (write(fp->fd, fp->base, nc) •* nc) 
rc ■ - 1 ; 

if Crc !- -1) /• no errors yet ? •/ 

rc - lseek(fp->fd, offset, origin); 

> 

return Crc ■■ -1) ? -1 : 0; 


The variable r c contains the return code It is set to -1 when an error 
occurs. 

There are two situations in f seek : the file is open for reading or it is open 
for writing. 

When the file is open for reading and the origin is 1, the offset is counted 
from the current position (the other cases are: origin 0, the offset is counted 
from the beginning of the file; origin 2, the offset is counted from the end of 
the file). To measure the offset from the current position, fseek takes into 
account the characters already in the buffer. 

if (origin ■■ 1) 

offset -» fp->cnt; 
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f seek then invokes lseek and discards the buffered characters: 

rc ■ 1 seektfp->fd, offset, origin): 
fp->cnt - 0; 

When the file is open for writing, f seek first flushes buffered characters 
if any: 

if ((nc ■ fp->ptr - fp->base) > 0) 

if <writeCfp->fd, fp->base, nc) !- nc) 
rc ■ -1 ; 

If there are no errors, fseek calls lseek: 
if (rc !■ -I ) 

rc ■ lseekCfp->fd, offset, origin); 

The function fseek returns 0 for proper seeks. 
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Exercise 8*5: (page 184 K&R) 

Modify the faize program to print the other information contained in the inode 
entry. 


#include 

<stdio.h> 






finclude 

<str ing.h> 






#inc1ude 

<fcnt 1. h> 

/• 

flags for 

read and 

write 

•/ 

#include 

<aya/types.h> 

/• 

typedefa 



•/ 

#include 

<aya/atat.h> 

/• 

atructure 

returned 

by atat 

•/ 

#include 

"dirent.h" 






int atat(char •, struct atat 

•>; 






void dirwalk(char • , void (•fcnXchar •)); 

/• faize: print inode #, mode, links, size of file "name" •/ 
void faizeCchar «name) 

< 

struct atat atbuf; 

if CatatCname, iatbuf) »■ -1) < 

fprintfCatderr, "faize: can't access XsVn” , name); 
return; 

> 

if ((atbuf.st_mode 4 S_IFMT) -- S.IFDIR) 
dirwa1k(name, fsize); 

printf("%5u X6o X3u X81d Xs\n", atbuf.st_ino, 

atbuf.at_mode, atbuf .at_nl ink, atbuf.at_a i ze, name); 

> 


We modified f siz e to print the inode number, the file mode in octal, the 
number of links to the file, the file size, and the file name. You may choose 
to print more information—it depends on what is significant to you. 

The function dirwalk appears on page 182 K&R. 
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Exercise 8-6: (page 189 K&R) 

The standard library function calloc(n,size) returns a pointer to n objects 
of size size, with the storage initialized to zero. Write calloc, by calling 
ma 11 oc or by modifying it. 

'include "syscalls.h" 

/• calloc: allocate n objects of size size •/ 

void *callocCunsigned n, unsigned size) 

< 

unsigned i, nb; 
char • p, • q; 

nb ■ n • size; 

if C(p * q ■ mallocCnb)) !■ NULL) 
for (i « 0; l < nb; i ♦ ♦ ) 

• p ♦ ♦ * 0 ; 

return q; 

} 

The function calloc allocates n objects of size size. The total number of 
bytes to be allocated is nb: 


nb 


n * size; 


M Hoc returns a pointer to a storage area of nb bytes. The pointers p and q 
remember the beginning of this allocated storage area If the allocation was 
successful, the nb bytes allocated are initialized to 0: 

for Ci ■ 0; i < nb; i ♦ ♦ ) 

• p ♦ ♦ - 0 ; 

ca 11 oc returns a pointer to the beginning of the allocated and initialized storage 
area. 
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Exereise 8-7: (page 189 K&R) 

mol toe accepts a size request without checking its plausibility; free believes 
that the block it is asked to free contains a valid size field. Improve these 
routines so they take more pains with error checking. 

'include "syscal1s.h M 

'define MAXBYTES (unsigned) 10240 


static unsigned maxa11oc;/• max number of units allocated •/ 

static Header base; /• empty list to get started • / 

static Header »freep ■ NULL; /« start of free list •/ 

/• malloc: general-purpose storage allocator •/ 

void •ma11oc(unsigned nbytes) 

( 

Header «p, *prevp; 

static Header •morecore(unsigned); 
unsigned nunits; 


if (nbytes > MAXBYTES) ( /• not more than MAXBYTES «/ 

fprintf(stderr, 

"alloc: can't allocate more than Xu bytes\n", 
MAXBYTES) ; 
return NULL; 

> 

nunits ■ (nbytes ♦ sizeof(Header) - 1) / sizeof(Header) ♦ 1; 


/• . 

> 

. . T 


/• as on page 187 

KIR 

• / 

'define 

NALLOC 

1 024 

/• minimum 'units 

to request 

• / 

/* morecore: ask 

system for 

more memory 


*/ 


static Header •morecorefunsigned nu) 

< 

char »cp, •sbrlc(int); 

Header • 

if (nu < NALLOC) 
nu ■ NALLOC; 

cp ■ sbrk(nu • sizeof(Header)); 

if (cp ■■ (char *) -1) /• no space at all •/ 

return NULL; 
up ■ (Header •) cp; 
up->s.size • nu; 
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maxalloc * (up->a.size > maxalloc) ? ap->a.aize : maxalloc; 
freeCCvoid OCup+O); 
return f reep; 


/• free: put block ap in free liat */ 

void free(void »ap) 

< 

Header *bp, *p; 

bp - (Header *)ap - 1; /* point to block header •/ 

if (bp->s.aize ■■ 0 I! bp->s.size > maxalloc) < 

fprintfCatderr, "free: can't free Xu unita\n" , 
bp->a.size); 

return; 

> 

for (p ■ freep; !(bp > p 44 bp < p->s.ptr); p ■ p->a.ptr) 

/*...•/ •, /* as ovi page 188 K4R */ 

The malloc function checks the number of bytes requested against some 
arbitrary constant MA xbytes. Select a value for maxbytes that works best for 
your system. 

When mo recore allocates anew block, the 3 tat ic variable maxalloc 
remembers the size of the largest block used so far. This way the function free 
can verify that the value of size is not 0 and it is not larger than the largest block 
allocated. 
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Exercise 8-8: (page 189 K&R) 

Write a routine bf ree(p, n) that will free an arbitrary block p of n characters 
into the free list maintained by net loc and free. By using bfree, a user can 
add a static or external array to the free list at any time. 

'include "syscalls.h" 

/• bfree: free an arbitrary block p of n chars 
unsigned bfreefchar *p, unsigned n) 

< 

Header *hp; 

if (n < sizeof(Header)) 

return 0; /• too small to be useful 

hp " (Header •) p; 
hp->a.size • n / sizeof(Header); 
free((void •)(hp*1>); 
return hp->s.size; 

1 


The routine bfree takes two arguments: a pointer p and a number of 
characters n. It will free the block only if its size is at least sizeof(Header), 
otherwise i t returns 0. 

The pointer p is cast to Header type and assigned to hp: 
hp a (Header •) pi 

The size of the block in units of si zeof (Header ) is: 
hp->s.size « n / sizeof(Header); 

The last step calls the function free. Since free expects the pointer to 
be just past the header area, we use (hp*1), as morecore does, and cast it to 
type (void •). 

The routine bfree returns 0 if the block is too small, otherwise it returns 
the size of the block in si zeof (Header) units. 
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strncmp function 103 
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